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PREFACE 


Creative Games For the Timex Sinclair 2068 is aimed at TS2068 
owners who want to know and use their computer more fully through 
the medium of games, whether they are learning with the machine for 
the very first time or whether they are more experienced users. For 
beginners there is a simple guide to entering programs, and each 
program listing is clearly presented with accompanying instructions on 
playing the game. For those more advanced in programming skills, a 
complete program design method is introduced, each games program is 
explained and documented fully, and many programming techniques 
are included in the form of program notes. Games are organized into 
sections for ease of reference, e.g. number games, word games, card 
games and board games. 


Even the most seasoned computer professional will admit to enjoying 
computer games, and the selection included in this book is made up 
both of old favorites, particularly if the program method can be carefully 
studied, and completely original games. Using this text together with 
the TS2068 manual, the reader can progress from just playing the 
games to understanding their structure, modifying them and eventually 
designing original creations. Machine code routines are not included in 
any program in order that further reference books need not be 
examined. This book aims to be a self-contained guide to advanced 
TS2068 Basic programming, while also providing ready-to-use games 
for new TS2068 owners. 


It is recommended that the reader who wishes to initially use this text 
just as a source of games should read Chapter 1 and then commence 
with the program of their choice. Readers who have already 
programmed the TS2068 may wish to skip Chapter 1 and start with 
Chapter 2. Subsequently the chapters are relatively self-contained and 
can be considered in any order. The programs in a given chapter should 
be read through in sequence as material is introduced progressively. 


СНАРТЕВ ОМЕ 


STARTING ОМ TS2068 GAMES 





This chapter is designed for readers who have recently acquired the 
TS2068 and who want to use it, at least initially, for playing games. 


1.1 SETTING UP THE TS2068 


Make Sure it All Works 


In spite of one’s natural desire to start using the computer immediately 
it is very important to make sure that everything works properly before 
trying to type in a large game. To this end, the instructions in Chapter 1 
of the TS2068 manual should be followed closely regarding plugging in 
all the bits and pieces. Initially, try and choose a place where you can do 
this on your own as a multitude of fingers poking around with leads and 
plugs often does not help. 


Once the copyright line appears on the television screen you are on the 
right track, but it is still important to check two items before attempting 
the spectacular: the television must be tuned in precisely in order to 
fully appreciate the range of TS2068 colors, and also the cassette 
linkage must be tested. There is nothing more frustrating than spending 
an hour entering a program, only to find that it cannot be stored on 
cassette and is therefore going to be lost when the TS2068 is switched 
off. ‘ 


To check the TV tuning ме will run a short program to give a tuning 
picture, as with television test transmissions. However, before this can be 
done, the reader must be familiar with typing in programs. 


Using the Keyboard 


The means by which information is entered into the Т 52068 5 memory 
is generally by pressing keys on the keyboard. Unfortunately, it is not a 
simple case of looking at a program listing and typing it in letter by 
letter; this will not work. The TS2068 uses many special words 
(keywords) in programs which must be entered by pressing the 
appropriate keyword key. Sometimes the user may have to press several 
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other keys before the TS2068 is ready to recognize the keyword. To 
gain an insight into this, the reader is directed to Chapter 2 of the 
TS2068 manual. 


In order to type іп a program it is necessary to appreciate a little theory. : 
А 152068 program is a list of numbered lines. Each line may have 
several instructions, separated by colons. At the end of a typed line the 
user must press ENTER. If the line does not move from the base of the 
TV screen then something is wrong; a flashing question mark at the end 
of the line indicates this. 


To relieve the boredom of typing in a program the user may press RUN 
to get the TS2068 to obey the instructions entered so far. There is 
nothing wrong with this, providing one appreciates that a program will 
not work properly unless it is complete, and also the Т52068 screen 
may be left in a strange state, particularly as far as colors are concerned. 
More on this later. 


Having mastered Chapter 2 of the TS2068 manual, опе may start 
entering a program. In the last section of this book we have included a 
quick reference guide to keying in programs. This lists every symbol or 
word you will find in a program in this book and shows clearly how it is 
obtained. If you should find as you type in a program, that the sequence 
does not seem to work, then the TS2068 has not understood 
something typed in previously in that line. For example, if you were 
entering a line 


PLOT x, 175: DRAW 0,—63 


and you keyed ; instead of :, then the DRAW key (W in the keyboard 
guide) would just give you W. This is because the TS2068 thinks you 
are still somehow dealing with a PLOT instruction; it has not had the 
right separator (a colon) supplied. Such mistakes need to be corrected, 
as described in Chapter 2 of the TS2068 manual. 


Whenever a TS2068 key is pressed, a faint click may be heard—this is 
not from the key itself but is emitted from the “toud” speaker inside the 
TS2068. This confirmatory sound may be made more audible by 
entering 


POKE 23609,50 (and ENTER) 


Any subsequent key depressions are heard as a beep. In fact you may 
like to experiment with values higher than 50 to see what you prefer 
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best. Whatever value you use, the note will remain the same until you 
switch off the TS2068. There are one or two other general rules to be 
noted before starting to type in a program. Zero (Q) and the letter О (О) 
are not the same and must be entered differently on the keyboard. 
Secondly, let us consider spaces. Generally spaces in program listings 
are provided by the TS2068 itself. For example key P іп К mode gives 


space PRINT space 


The user can add further spaces (in fact these can add clarity to a 
listing—see Chapter 2) but these are irrelevant to the meaning of the 
program. The only place where spaces may be specifically needed in a 
program listing is between quotation marks e.g. in a PRINT statement. 
Failure to enter the proper number of spaces will mean that the program 
is not completely correct. It may work but certainly the screen layout will 
not be as intended. Also, if the symbol | is encountered, unless it is in a 
keyword (e.g. PRINT), it is always the lowercase letter І (as in lion). 


One final hint. As stated above, when entering a listing the user may 
type RUN half way through to see what happens and this may result in 
strange things, particularly colors, on the screen which continue even 
when the listing returns. To overcome this, enter the following line 
before starting to key in a program. 


9999 BORDER 7: PAPER 7: INK 9: CLS: STOP 
Then if color problems are found, type 
GO TO 9999 
Line 9999 clears the screen and sets the screen colors to black 


characters on a white background, the same state as when the Т52068 
is first switched on. . 


The reader may now like to practice using the keyboard with the 
Keyboard Guide found at the back of this manual. The TV tuning test 
program below is a good starting point. 


Adjusting the Television 


If you are using a black and white set, tuning is much more 
straightforward. Often with a color set it is difficult to obtain both 

good colors and clear symbols. The test program listed below eventually 
sets up a screen with a pattern like this. 
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The numbered blocks in the center are the colors, @ to 7, i.e. black, 
blue, red, magenta, green, cyan, yellow and white. To get just this 
section in order to tune in your TV set for the right colors, enter these 
instructions: 


S INK Ø: PAPER 7: BORDER 7: C 


5 
1@ FOR сә TŪ 7 
ра FOR i-a ТО 
"xcd BRISHT i; PAPER C;HT 
Cx 
42 NEXT i 


К S8;HT i2z,cx 
50 NEXT c 


The cu lines produce the normal and inverse character sets. 


i22 


RSE 


PRINT INVE 





Finally the line and ірді pattern at the top of the screen тау be 
produced by entering 


200 LET uc 
21@ CIRCLE ій 
CIRC 





8,Ч4с,15: 
228 FOR x 
230 PLOT 






тга к, 


Ыт 


Dur 
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240 PLOT x4243,175: DRAH @,-65 
250 NEXT x 
250 FOR ч-112 TO 124 STEP З 
270 PLOT 9,4: БАВИ 255,9 
zaa EVE 2,Ч%51: DRAW 255,8 

d 


Checking the Cassette Recorder 


Assuming the television is now tuned in as well as possible to the 
152068, it seems a good idea to keep this test program for future use. 
You may have allocated a spare button on your set exclusively for the 
TS2068, in which case there may be no need to use the program 
again. However, it is often true that other settings such as contrast or 
brightness need different positions for ordinary TV watching compared 
with Т52068 watching. Naturally such trivia will not bother most 
readers, who will doubtless have devoted one of their many color 
portables exclusively to TS2068 use. The fact remains that often we 
need to store programs on cassette tape, and the program that was 
entered in the previous section seems a good one with which to start. 


Chapter 4 of the 152068 manual is an excellent description of the use 
of cassette storage and should be read carefully. You may like to call the 
program TVTEST and then attempt to SAVE it and then VERIFY it using 
the details in the chapter. If VERIFY is successful you may, without а 
twinge of conscience, pull the plug out on your TS2068 and relax in 
the happy knowledge that you can reload TVTEST again whenever you 
wish, providing you can find the same cassette. On this matter it is well 
worth being thorough in labelling and cataloguing cassettes to avoid the 
panic of overwriting, losing or otherwise botching up programs which 
took precious time to key in. | 


1.2 USING THIS BOOK 


Playing the Games 


Once you are convinced that the TS2068 is fully operational, 

cassette linkage and all, and you have had some practice on the 
keyboard, it is an appropriate time to start using some of the games in 
this manual. Each game comes with a great deal of accompanying 
information, but the only parts to concern the reader at this stage are the 
description, the program listing and any footnotes following the listing. 
Use the description to find out about the game and how to play it and 
then enter the program from the listing, paying attention to any 
footnotes. For simplicity, games in the manual do not contain a detailed 
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list of instructions on how to play in the program itself. If these are 
required, simply distill the main points from the written description and 
then include them as PRINT instruction(s) with line number(s) preceding 
the first line number in the listing 


e.g. (The Ж symbol is used here to indicate a space.) 


1 PRINT "In ж this x game x you * try x to ж beat * the ж 
computer x at ж estimating ж the ж value x of x Pl x to x one x 
hundred x decimal ж places. ж x If x you x win x you ж get x 
10 * points. ж x If x you x lose x the x keyboard * is x electrified. 
ж ж Good x luck!” 


You may find that words get split between lines—to overcome this 
simply add extra spaces before the split word to push it onto the next 
line. After these instructions you need a line such as 


4 INPUT “Press x ENTER x to x start x the x game:”; LINE 
z$: CLS 


This line gets the player to press the ENTER Key when the instructions 
have been read. Then the game will begin. 


Progressing Further 


After playing a game, the reader may wish to make modifications to it. 
Sometimes modifications are suggested in the description. This is an 
excellent way of learning about programming, and reference should be 
made to the method and variables sections of the program description 
to understand more fully what the program is doing. Refer also to the 
TS2068 manual to see the meaning and effect of instructions. 


From here you may wish to move on to designing your own programs, 
and Chapter 2 of this book will equip you to do this. 





CHAPTER TWO 


DESIGNING TS2068 GAMES 





This chapter is designed for readers familiar with programming. 


2.1 INTRODUCTION 


In the days of our forebears, before the coming of the 752068, when 
the strange rites of ZX80, ZX81, апа 751000 were practiced, our 
people were made to worship the god of Memory-Saving. All manner of 
great and wise artifacts were sacrificed to this god and even the sacred 
ancient tablets of Understanding and Structure were broken to appease 
the wrath of the Memory-Saving god. The god would only accept 
offerings of weird and mystical sayings which few could comprehend 
and these were spread abroad and the god said that it was good. But 
now we rejoice in the dawning of a new age where the bonds of ZX80, 
2X81, and TS1000 will be broken asunder and we exult in the rule of 
the 752068. Once again the land will resound to cries of "Modular 
Programming!" and “Easily Modified!” as we together renounce the 
black arts of Memory-Saving and return to the wise and true sayings of 
the ancients. 


Programs in this book are designed to reflect good programming 
practice and documentation. It is suggested that readers familiar with 
programming should choose chapters or games which interest them, 
perhaps key in a program to try it out and then consider it in more 
depth. Each program is described under the headings of 


(i) description 
(ii) method 

(іі) screen layout 
(iv) variables 

(v) program listing 
(vi) notes 


The method is designed according to the principles outlined in this 
chapter and is cross referenced to the program listing by means of 
annotated line numbers. Study of the method section is the best way of 
understanding how the program works. Any notable techniques used in 
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the program are explained in the notes section. 


This chapter is concerned with how a game may be brought from the 
idea stage to be a clear, well-structured working program on the 
TS2068. Most of the material applies to programs other than games 
and in fact to programming on other machines as well. 


2.2 AGOOD GAME 


What makes a good game program? This question may be considered 
in two parts—firstly what is a good game, and secondly, what is a good 
program? 


Qualities of Games 


Different players prefer different games but generally a game needs to 
be challenging (containing the right balance of luck and skill), novel, 
and complex enough to retain interest but simple enough to pick up 
quickly. The game should provide the player with feedback as to 
performance—at least whether the game was won or lost, and 
preferably a graded score. Some programmers ignore the playing 
potential of programs they design and treat the exercise as a means to 
show off their technical skill in designing algorithms. The end result is a 
technically brilliant program which is no fun as a game. 


Similarly one should consider whether the game chosen is suitable for 
playing on a computer. Programs exist where the computer acts as the 
board and players enter their moves through the keyboard. While this 
may be satisfactory for two or three players, particularly if the very fact 
that it is a computer game holds some fascination for them, it could 
certainly become cumbersome with six players—unless of course you 
networked six Т 5206865 together with a projection television as the 
display! 


Qualities of Games Programs 


Any program, game or otherwise, should aim to be correct, efficient, 
easily modified, and idiot proof. In addition, games programs, in order 
to fulfill the aims previously outlined, should make good use of 
graphics, color and sound, incorporating clear screen layouts and 
sensible interaction with the player. 


We therefore require our games program to work properly, in spite of 
possible mistakes by the player, to work quickly, and to enable us to 
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change its features easily. 


As the reader will appreciate, none of these objectives are completely 
attainable, and some are not entirely complementary. However if the 
programmer aims at nothing, that is exactly what will be achieved— 
nothing. Many brilliant people have come up with excellent methods of 
designing programs to meet many of these aims and although they may 
have made their proposals for programmers working on multimillion 
dollar mainframe computers, their ideas are just as relevant for the 
TS2068 programmer. We now consider some of these ideas. 


2.3 HOWTO DESIGN A GOOD GAME 


Why Bother? 


If you have an idea for a TS2068 game why not just start typing it in? 
The answer is that you will end up, probably several days later, with a 
program that may work but that makes Rube Goldberg creations look 
like masterpieces of structural design; and heaven forbid that you . 
should find an error in it or wish to modify it, as this will be nearly’ 
impossible. 


In the good old days before microcomputers polluted our shores, 
programmers used terminals linked to mainframe computers which held 
strict records as to how much time the programmers spent on the 
machine. Online time was severely limited and the computer manager 
could thrust a complete list of all unsuccessful program runs under the 
programmer's nose and ask for explanations. This meant that the poor 
artisan actually had to ensure that any time on the computer was 
well-spent. Precious seconds could not be spent staring at the terminal 
thinking of which software fiddle to bolt-on next. 


Apart from the odd time when you need to "see what happens if...”’, 
your time on the TS2068 should be spent either in enjoying using a 
program or simply keying in a program that you have previously 
prepared on paper. A builder does not build a house by shoving a few 
bricks together and then wondering what to do next: there is a carefully 
designed plan from which the builder works. If this were not the case, 
people would have no confidence in the completed buildings, and the 
same applies to our programs. 


From the author’s own experience, as far as writing programs is 
concerned, it is quicker to do it properly. Much time is saved by 
discovering errors on paper rather than when on the machine. This 
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disciplined approach is not easy, particularly when you have a brilliant 
idea for a program that you are bursting to implement. You may like 

to imagine a large red sign on the TS2068 keyboard which reads 
"DON'T TOUCH until you know exactly what you are going to do.” 


Crystallizing the Idea 


Ideas for games can spring from many different sources, whether as 
variants of existing games or as original material. However the idea 
must be crystallized into a description of the game before any further 
work can be done. 


The designer may ask a number of questions in order to assist in 
clarifying the idea. 


What will the screen look like? 

What is the player expected to enter? 
How will the game start? 

How will the game end? 

How can the player do well? 

In what way is skill required? 


OPW > 


Once these questions have been answered, a description of the game 
should be written, consisting of about a paragraph of text, as in the 
programs in this manual. At the same time the screen format can be 
sketched in draft form. 


To understand the process more fully, let us consider the first game in 
the book, Crack the Combination. The author had the idea of designing 
a game in which the player tries to break into a safe with a combination 
lock. Let us consider the six questions above. 


1. The screen. It will display the dial of a combination lock 
with one number uppermost. There will be a game title and room 
(somewhere) for messages to the player. 

2. Player's entries. The player has to type in the number to 
which the dial is to be turned. 

3. The game starts with the combination turned to the highest 
number, which we choose to be 50. A code has been set, consisting of 
three numbers (again three is a' personal choice). 

4. The game ends with either the player guessing the code or 
running out of attempts. Restrict the number of allowed attempts to ten. 
If the player loses, we will create an alarm sound. 

5. The player сап do well by breaking the code in the least 
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number of attempts, in which case we had better show the player how 
many attempts they have made. No—for greater realism we will display 
SECURITY UNITS which start at 10 and decrease. 

6. Skill. Burglars use their hearing to detect when the 
combination dial turns past the right number. Let us do a similar thing 
with this game—make a tone sound which increases up to the code 
number and then falls again. Perhaps include a ‘‘click’’ when the 
number is passed, as well. 


The reader will notice that many decisions about the nature and format 
of the game are being made at this stage. Obviously such decisions 
must be based upon a practical knowledge of what the TS2068 can 
and cannot be programmed to do, and this only comes with practice. 
Some of the more nebulous ideas envisaged above become clearer as 
the game description is written as a brief paragraph and as the screen 
format is drawn (see Crack the Combination in Chapter 3). 


The Program Method 


Since we want to produce a program which is itself just a list of 
steps, it seems sensible to design the program method as a list of 
steps. A perfecily viable program method is 


1. Start the game 
2. Play the game 
3. Finish the game 


but this is obviously insufficient detail with which to go to the TS2068 
and know exactly what we are going to type in. We will follow a system 
known in the trade as stepwise refinement which starts with the 
method in very broad detail, as above, and gradually fills in more and 
more detail to each step and parts of steps until the Basic program is 
finally arrived at. At each stage of improvement or refinement the series 
of steps could properly be called a program method. In fact the method 
as listed in the programs in this manual is just a refinement stage 
chosen to be fairly readable in reasonably plain English. More or 

less detailed stages could just as well have been chosen. At each 
refinement the method must be checked for correctness, perhaps by 
feeding through sample values. 


Following this methodology means that we will arrive at a well- 
structured program which is comprehensible and easily modified. As 
we fill in more detail we get close to 152068 Basic and it is good to 
start using Basic variable names. These should be chosen to be 


11 


Creative Games for the Timex Sinclair 2068 


meaningful, but not long-winded as they would then be a pain in the 
pinkies to type in. 


Our second shot at the method above may look like this: 


1. Setup the dial picture and starting values 
2. Repeat for the three dial numbers 

a) Computer chooses number 

b) Player tries to guess it 

c) Computer gives appropriate response 
3. Game ends 


Notice that sub-steps are introduced—step 2, ‘Play the Game’ now 
consists of repetition of three steps, (a), (b) and (c). The program 
designer now goes into further detail. For clarity we will keep the 
sub-step labels the same, e.g., the player’s guess will always be 2(b). 


It is quite possible to refine a single step right to the level of Basic if 
desired, providing the steps are self contained or modular. This may not 
however be a good approach in one’s first attempt at program design, 
as the refinement of one step may reveal a logic error in the design of 
others. We are therefore producing the following: 


1. Initialize screen and variables 
a) Draw dial and headings 
b) Set security units (su) to 10 
2. Repeat for section counter c from 1 to 3 
a) Choose random code number (n) 
b) Entry of player’s guess 
(i) Enter dial position required (d) 
(ii) Check whether valid 
c) Response to guess 
(i) Move dial, with sound, to value d 
(ii) If guess (d)=code number (n), respond and go to 
step (d) | 
(іі) Otherwise decrease security units (su) by 1 апа 
respond 
d) Repeat to step (2) 
3. End of game 
a) If all three numbers found, congratulate and stop 
b) Otherwise sound alarm and stop 


As we start to use data names such as su, с and n it is best to start to 
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compile a list of names used, with their meanings. This is in fact how 
the variables section of the program documentation is produced. Such a 
list ensures that a data name is not used twice unintentionally and also 
that the designer can quickly refer back to it, rather than having to 
remember names and their meanings. 


To meet some of the ‘‘idiot-proofing’’ aims, a validation step is included 
at step 2(b) (ii). The level of validation required depends upon your 
assessment of the level of idiocy of the potential players. For brevity in 
most of the programs in this manual we have assumed that if the player 
is asked for a number then one will be entered, albeit possibly too large 
or small or of the wrong sign. This philosophy applies in the final 
program method for Crack the Combination as shown in Chapter 3 and 
in the program listing. If however the program designer wishes to be 
more thorough and is prepared to type in extra code, a better system is 
as follows: for every input always use a string variable, and then convert 
it to a number if required. Here is a suitable method to check for 
unsigned integers. 


(i) Enter value 25 
(ii) Remove any leading and trailing spaces of z$ 
(iii) For counter i from 1 to length of z$ 
a) If character i of z$ is not a digit 0-9 then 
1) Set valid — 0 4 
2) Repeat to (iii) 
(iv) Set valid = 1 
(v) Exit 


A much more sophisticated routine is needed to check for positive or 
negative numbers : the reader may like to design one and then ensure 
it is right by trying oddities such as 12 34, —20. and 3.9.6—4. 


As previously stated the final "plain English'' version of the method for 
Crack the Combination is shown in Chapter 3. In writing down these 
methods it is helpful to use indentation as shown, for greater clarity. The 
line numbers shown in the method in Chapter 3 would not be present at 
this stage—these are added when the working program is ready, in 
order to provide easy cross-referencing. 


Translating into Basic 
While planning and refining the program method the designer is already 


thinking of how it will be done in Basic and is working on identifying 
sections which occur more than once with a view to making them 
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closed subroutines (using GO SUB). 


Once the final method (in English or perhaps pidgin-Basic) has been 
written down, we simply have to carry out a translation exercise, 
converting the steps into TS2068 Basic instructions. This stage is often 
called coding the program i.e. putting the instructions into a 
code—Basic. 


This should not be a particularly creative task as the thinking has been 
done already. Do not be afraid to use sections from programs you have 
previously written in your new program—this can save a lot of time. 
Many program modules from this manual can be similarly borrowed. 


The addition of REM lines to mark sections of the program 
corresponding to the method steps is useful. Another hint for increasing 
readability is to use extra spaces to indent Basic lines within a loop or 
following an IF statement. Neither of these techniques are used in this 
book since the overriding aim is ease of entering programs especially for 
beginners, but compare the section of code below with its equivalent in 
Crack the Combination in Chapter 3. 


49 REM #2¢#5tart of dial 
section Loop 

52 FOR c=1 TO З 

БО LET nsINT (RNG+#46+5) 

6S REM set BEEP tones 

? FOR ісі TO 568 

Т2 LET bfilse5-ticiniein-iisvea- 

tiem) #{1-П) 2 

74 NEXT i 

75 LET btn} =-1@a 

79 REM Enter & check dial 


number 
Әй INPUT FLASH i;"Enter next 
ай Let dsINT d: IF d:1 OR do5 
@ OR d=x THEN PRINT INK 2; FLASH 


1;RT 10,7; “UNAUTHORIZED ENTRY": 
ва та 21e 


Getting it Right 


Helpful hint: when first coding the program add plenty of-extra 
print statements to show what is happening. These may be 
removed when the program is working. 


In Combination, for example, print out the random code numbers, have 
a print statement to show whenever a new program section starts, print 
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the values of the BEEP tones, and so on. Such extra information serves 
to either confirm that a program is working or to show why it is not. It is 
not a vainly optimistic hope to suggest that your program will work the 
first time, providing you have designed it properly. Do people gaze in 
wonder and astonishment at architects whose buildings do not fall over 
when built? Of course not, and neither should you be amazed if our 
programs do not fall over. 


Certainly some adjustments may need to be made, particularly if the 
programmer is new to TS2068 Basic, and at this stage who isn't? 
However, using built-in error diagnostics and extra print statements, 
either in the program or as direct commands outside the program, 
problems should soon be resolved. 


However we are wise to remember that even this final stage of the 

stepwise refinement process needs to be checked thoroughly, even if 

the program seems to work. Choose and feed in a good variety of test 

values to the program to make sure that as many routes as possible are 
tried and tested and not found wanting. 


When you are happy with the finished product, you should gather 
together all the pieces of paper produced in the design process, correct 
any inconsistencies (e.g. slight modifications that you have made to the 
method at a later stage), cross reference the method to the program 
listing (as shown in this book), and file this information for further 
reference. In this way, writing up a program is not a tiresome drawn-out 
exercise, but simply a brief collating of information already produced. 
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СНАРТЕН ТННЕЕ 


NUMBER GAMES 





3.1 CRACK THE COMBINATION 


DESCRIPTION 


One of the first games that budding programmers generally put their 
hands to is Guess the Number. Here the computer chooses a number at 
random and the player has to find it in ten attempts, aided by hints such 
as ‘TOO HIGH’ from the computer. ‘Crack the Combination’ is of the 
same ilk, but is a bit more sophisticated. 


An electronic combination lock to a safe has three code numbers 
between 1 and 50. The potential safebreaker has ten attempts to get all 
three numbers. The number chosen is keyed in and the dial turns to this 
number, emitting a tone, the pitch of which varies according to the 
closeness to the code number. As it gets closer to the number, the note 
rises, and as the number is passed, there is a buzz, and then the note 
falls again. If the player makes a mistake in entering the number then 
alarms are triggered. This also happens if security units run out (i.e. the 
ten attempts allowed). The alarm rings for quite some time! 


METHOD 


1. Initialize screen and variables 


a) Draw dial and headings (5-45) 
b) Set dial number exposed (x) to 50 (10) 
с) Set security units (su) to 10 (10) 
2. Repeat for section counter c from 1 to3 (50) 
a) Choose random code п (60) 


(i) Setup corresponding array of BEEP tones (b) (70-75) 
b) Entry of player's guess 
(i) Enter dial position required (d) (80) 
(ii) If invalid then (90) 
A) Display message 
B) Set security units (su) to zero 
C) Go to step 3 
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c) Response to guess 
(i) Move dial, with sound, to value d 
(ii) If guess (d) = code number (n) then 
A) Sound and message confirmation 
B) Go to step d 
(iii) Otherwise 


A) Reduce security units (su) by 1 and display 


B) If su = 0 then 
(1) Display message 
(I) Go to step 3 
C) If su = 1 then display warning message 
D) Go back to step 6 
d) Repeat to step (2) 
3. End of game 
a) If units (su) = 0 then sound alarm 
b) Otherwise display message of congratulations 
c) Stop 


SCREEN LAYOUT 


CRACK. THE-OOMSENRT TOM 


i untocked 


VARIABLES 


!=line counter to initialize screen 

array b dimension 50 = tone values for BEEP when 
dial moves 

x = dial number 
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(100-120) 


(130) 


(140-150) 


(150) 


(160) 
(170) 


(180) 
(190) 
(200) 


(210) 
(220) 
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Su —security units (i.e. attempts) left 
CX, Cy - x, y co-ordinates of center of dial circles 
r=radius counter for drawing circles of dial 
i,k- general purpose counters 

с= dial section counter (1-3) 

n- random combination code 

d= player's estimate 


PROGRAM LISTING 


5 PAPER 5: FOR t=1 TO 21: BRI 
HT TRB 31: NEXT L 
7 FOR 1=3 TO 18: PRINT BRIGHT 
i; PAPER ZAT %,8;" 
: NEXT 1 


a PLOT 54,23: DRAN 0,128: DRA 
- 127,0: DRAW 0,-128: DRAH -127, 


i8 DIM bi5ği: LET xz-5ü: LET su 
210: LET cxzi27: LET cy=87 

15 FOR г=25 TO 45: CIRCLE INK 
i,cx,Cu,r: NEXT r 

Ей FOR r=56 TO 64: CIRCLE INK 
B,CX,CU,l: NEXT г: INVERSE 1 

за PRINT AT в,а; " CRACK TH 
E COMBINATION is 

35 PRINT HT 21,8;" 

=“: INVERSE à 

4@ FOR i=1 TO 2@: PRINT AT i,ü 
ЗЕН i1.351; ‘HR: NEXT i 

45 PRINT AT 3,15;58 

5й FOR с=1 TO 3 

өй LET m=INT (RNG<4645) 

та FOR ісі TO 58: LET bíi!-25- 
ii«n)sin-i);/gB-tion)isíi-n)»;2: NEX 


1 

75 LET bin} =-18 

ва INPUT FLASH 1;"Enter next n 
umber: a 

Әй LET d-INT d: IF 4<1 OR d»58 
OR dzx THEN PRINT INK 2; FLASH 
i;HT 16, fe AUTHORTEED ENTRY": 
LET su-8: GO 210 

1008. PRINT PAPER 4; FLASH 1;AT 3 


215; 

'110 FOR kzx TO d STEP 1-2síd«x) 
: BEEP 0.1,Бік:? 

: EXT k 


12@ PRINT RT 3,15;d: LET x=d 
i25 IF d«10 THEN PRINT RT 3,15; 


138: IF d«*n THEN GO TO i158 

14@ FOR ісі TO c: ВЕЕР @.5,-5%i 
: NEXT i | 

15@ PRINT AT 184,7; “Section ";c; 
" unlocked": GO TO гае 
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‘SH SE CUR 





HEH PRINT BT i 
H i;"uarnina! 


2ай НЕХТ с 
218 IF su 20 THEN FOR Se: 
, BEEP @.=,1@ BEEP @.5,2@: NEXT 





NOTES 


1. Step 2(b) of the program method, lines 70 and 75, sets up 
array b containing “BEEP tones.” This illustrates an important principle 
in games programming, namely, do not waste time calculating when 
the player is waiting for a response—instead set up a table of values 
which can be looked up quickly. The values in array b are the numbers 
used in the BEEP instruction while the dial turns. There is a BEEP for 
each number that the dial is turned through, and these BEEP’s must rise 
as the hidden code number is approached. There should be a low buzz 
when it is passed, and then BEEP’s should fall as the dial is turned away 
from the number. Now it is quite feasible to calculate the size of BEEP’s 
while the dial is being turned (line 1 10) and thus dispense with array b. 
However this would slow down the sound of the dial turning and 
therefore decrease the game's attractiveness. 


2. It is helpful to include a warning message such as at step 
2(c){iii)C (line 180) when the player is getting close to losing. 


3.2 MONEY MATCH 


DESCRIPTION 


This program is based upon a popular casino game. The computer 

chooses twenty numbers between @ and 80 at random and the player 

has to guess what eight of these will be. Thus we have another of the 
"guess the number'' family games. 
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The player starts with $20 and can gamble with part or all of it (in 
whole dollars). The payout is based upon the amount of the bet and 
how many numbers are right: 


four numbers means ‘payout = bet 

five numbers means payout = 10 x bet 

six numbers means payout = 100 x bet 
seven numbers means payout = 1000 x bet 
eight numbers means payout = 10000 x bet 


The numbers @ to 8@ are shown on the screen in a pattern, and having 
specified the bet, the player enters eight “markers” or guesses as to 
what numbers the computer will choose. Next the computer chooses its 
twenty numbers in turn, each number ‘bubbling’ through the screen 
pattern. A match is highlighted and scored, and at the end the payout is 
shown. The game continues until the player runs out of money or 
chooses to stop. 


METHOD 
1. Initialize screen and variables 


а Setup screen positions of number @ to 80 in arrays 1 
(line) and c (column) 


b) Set money m to 20 (300) 
2. Display screen pattern including money held (305-315) 
3. Setmatches 2100 (320) 
4. Enterbetb (330) 
5. Ifbisinvalid (a) Reenter (340) 
(b) Go to (5) 
6. Decrease money m by bet b and display m (350) 
7. Repeat for counter i from 1 to 8 (360) 
a) Enter marker m(i) (370) 
b) If m(i) is invalid (i) Reenter (375) 
-(і) Go to (b) | 
c) If m(i) is a duplicate (i) Reenter (380-400) 
(ii) Go to (c) 

d) Highlight marker m(i) on screen (410) 
e) Repeat to (7) (420) 
8. Repeat for counter n from 1 to 20 (430) 
a) User presses ENTER (440) 
b) Calculate random number г(п) (450) 
с) ІҒг(п) already chosen then go to (b) (460-480) 

d) ‘Bubbie’ r(n) through the screen pattern with 
sound (490-495) 
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e) If r(n) = any of the markers m(1) to m(8) then (500-510) 
(i) add 1 to matches z 
(ii) sound confirmation 


(іі) display matches z (520) 
f) Repeat to (8) (530) 
9. Calculate and display payout p (540-560) 
10. Calculate resulting money held m and display m (560) 
11. If no money left (a) display message (560) 
(b) stop 
12. Enter choice to continue or stop (570) 
a) If continue, go to (2) (580) 
b) If stop (i) display message (570) . 
(ii) stop 


SCREEN LAYOUT 


Honey held=g12 
3839404142 
? 43 


о BRIT ca fo > 





sa 64 
1 5960516288 
Number of matches=1 





VARIABLES 
array |, dimension 81 = line positions of numbers 0-80 
array с, dimension 81 = column positions of numbers 0-80 
eg. number 16 displayed at line 1(17), column 1(17) 
ij = general counters 
m=money held, in $ 
2 = no. of matches between user's markers and computer's 
numbers 
b = user's bet 
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array m, dimension 8 = markers (or guesses) of user 

n = counter showing sequence of computer’s numbers 
array т, dimension 28 = computer's random numbers 
p= payout in $ 

z$ = number to specify continue (“1”) or stop (707) 


PROGRAM LISTING 


15 DIM 1181): DIM с181): DIM m 
18): DIM fc (2) 

20 FOR ісі TO 81: READ Líil,ci 
il: NEXT i 

30 CATA 2,3;3,3,4,3,5,3,6,3,7, 
2,9,2,98,2,10,2,11,2,12,2,12,.,2,14 
:3,15,3,15,3,17,3,18,3,19,3,19,5 
;19,7,19,9,13,11,18,11,17,11,16. 
11,15,11,14,11,13,11,12,11,3і1,11 
:10,11,98,11,8,11,7,11,6,11,5,11, 
1,11,23,11,2,11,2,12,2,15,2,17,2; 
19,3,19,4,18,5,14,6,14,7,18,8,19 
:8,18,12,19,11,19,12,19,13,18,14 
,19,15,12,16,18,17,19,15,198.198,1 
2,12,21,12,22,15,25,18,27,18,2T. 
17,27,15,27,15,27,14,27,125.27,12 
,287,11,27,10,27,29,27,8,27,7,27,0 
,27,5,87,4,27,23,27,2,27 


ses PAPER 7: BORDER 7: INK 3: 
L5 : PRINT AT 46,9; INK 3;"Honeu 


313 FOR i-i TO 81 

315 PRINT HT Li(il,cíij; PAPER 7 
; INK ;i-1: NEXT i 

320 LET г-й 

338 INPUT “Enter your bet: $";b 
340 IF bem OR b: INT b OR bài T 
HEN INPUT (b;" is invalid.  Reern 
ter bet: $");b: GO TO зай 

358 LET mzm-b: PRINT HT @,21;" 

"ET @,21; INK З; т 

360 FOR i=1 TO 3 

370 ur Rd marker no.';i 
ізі уут 

375 IF miil INT mii) OR м1) а 
OR mii! 5689 THEN INPUT "à to 8@ 
please: ";miil: GO TO 375 

360 IF ісі THEN GO TO 418 s 
39@ FOR ісі TO 1-1: IF míicmij 
J THEN INPUT ("You have ";míil;" 
already.  Reenter:"1;míil: GO F 


"n 


о 390 

408 NEXT J 

410 PRINT AT Limiilsi),cimiil-ci 
1; FLASH 1; PAPER 7; INK 2;míil: 
PHUSE 190: PRINT HT Limftilt+i}.c 
imlil +11; FLASH ©; PAPER 7; INK 


z;míil 
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420 NEXT i 

430 FOR n=1 TO 20 

440 INPUT ("Press ENTER for mu 
number "; п); LINE 2% 

45@ LET rín)zIMT (@1¢RNB) 

460 IF nzi THEN GO TO 490 

470 FOR ісі TO n-i: IF гіпітгі; 
J THEN GO TO 458 

480 NEXT у 

488 are i=@ TO гіп): LET of="__ 
5 15148 THEN LET os$z" " 

ізі PRINT AT Ltieili,cfitil; PAP 
ER 8; INK 3; ОЧЕН 1;0%: IF 1=1@ 


494 IF i338 "THEN PRINT ВТ E 
(іі); PAPER 8; INK 8; OVER 1;0% 
495 BEEP 8.1,19: НЕХТ i: PAINT 
AT Шігіп) ж11,сігіп: 1); INK 8; I 
NUERSE lif (ni 
500 FOR і-1 TO 8: IF rinizmij! 
THEN LET 2=2+1: BEEP @.2,15: BEE 
P 8.2,20: ВЕЕР 0.2.15: GO TO Бой 
51@ HEXT j 
520 PRINT AT 280,6; INK 4;"Numbe 
of matches="iz 
530 HEXT n 
540 IF z«4 THEN LET р=@: GO TO 


550 LET P-zbslütiz-4) 

560 PRINT HT 21,0; INE 1; “PAaYOU 
T=8"; Pp: LET m=m+p: PRINT HT 8,21 
; INK 8;m: IF m=@ THEN PRINT AT 
21,15; INK 2; FLASH 1; “You аге b 
roke!*: STOP 

570 INPUT "Heu 1 to continue, ð 

to stop"; LINE 2%: IF z$="8" TH 
EN PRINT HT 21,8; INK 1; "You Lea 
ve With $";m: STOP 

550 co TO 305 


NOTES 


1. After examining the numbers in DATA line 30 (and 
especially after keying them all in) the reader will see a pattern. It is in 
fact relatively straightforward to replace this massive block of DATA 
with several program loops to display the MONEY MATCH board. In 
this area there is no right or wrong way — it is up to the reader's 
preference. The author tends to err on the side of easier program 
entry, and in fact it is slightly shorter to choose the way the program 
appears above. 


2. The method used to “bubble” a random number through 
the list merits attention. This appears at lines 490-495. The underline 
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character (__) is printed OVER a number to highlight it and then it is 
printed OVER again to remove the highlighting. This method is better 
than using a different color for highlighting as it is more difficult to 
return the number to its original color afterwards, and marked numbers 
tend to disappear. Note also in this section the need to differentiate 
between single digit and double digit numbers for underlining. 


3.3 RECOGNIZE THE ENEMY 


DESCRIPTION 


The essence of this number game is again quite straightforward. The 
player's ability to quickly assess the number of a random collection of 
spots is being tested. Many educationalists believe that people can be 
taught to do this quite easily. Young children particularly seem to have 
abilities in this area. Once again the bones of the idea are considerably 
padded out to make it more fun. 


You are the captain of the TS2068 rocketship engaged upon its ninety 
nine year mission, boldly going where no one has gone before. 
Suddenly you find yourself being attacked by enemy ships. Subspace 
radar tracks them and displays them momentarily on the screen; you 
must estimate their number and fire the appropriate number of phasars. 
You also have a number of energy units which either rise or fall 
depending upon your success in estimating and firing. If your estimate 
is correct all the enemies are destroyed and your energy rises by fifty 
units; if you are within five of the correct number the ships not hit will 
flee and your units rise by ten. If however you are more than five out on 
your estimate you are in trouble! If you are too low the enemy ships not 
hit by a phasar will fire back; similarly if you are too high the excessive 
phasars will cancel out an equivalent number of other phasars, resulting 
in enemies left who will fire back. In both these cases, your energy units 
decrease by the number of ships firing at you. There are five waves of 
enemies and yoü may be forced to quit if your energy gets too low or if 
you make a foolish error in specifying the number of phasars required. 


METHOD 
1. Initialize screen and variables 
a) Draw screen format (10-30) 
b) Set energy units и to 50 and display (40) 
2. Repeat for go counter g from 1 to 5 (50) 
а) Clear view screen and message line (55) 
b) Wait for 1-5 seconds (random) (57) 
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c) Set no. of enemies r at random between 


20 and 99 (60) 
9) Display г enemies (SR 600) 
e) Display "ENEMIES SIGHTED” (70) 
f) Pause for 2 seconds 
g) Clear view screen and message line 
h) Enter no. of phasars e (80) 
i If e is silly (i) Display message and claxon sound 
{ii) Stop (90 and 300) 
j) Display no. of phasars to fire (95) 
k) Firing sound (100) 
1) Display actual number r (105) 
m) If phasars e=enemies г (110) 
(i) Display message 
(ii) Increase energy units и by 50 (SR 700) 
(iii) Go to (r) 
n) Calculate difference d between e and r (120) 
o) Display d enemies (SR 600) 
p) If difference d < 6 i (130) 
(i) Display message 
(il) Wait five seconds 
(ii) Clear view screen 
(iv) Increase energy units n by 10 (SR 700) 
(v) Go to (r). 
q) Difference d » 6so (140) 
(i) Display message 
(ii) Sound of firing 
(iii) Decrease energy units u by appropriate 
amount (150 and SR 700) 
(iv) If units u < 10 (160) 
A) Display message and claxon sound (300) 
B) Stop 
r) Press ENTER (SR 800) 
s) Repeat to (2) (170) 
3. End section 
a) Enter number z$ (200) 
b) ІҒ25- 1” go to (2) 
c) Stop (210) 
VARIABLES 


ij = 
и = 
g = 
26 


general purpose counters 
umber of energy units 


n 
go number (1-Б) 
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r=number of enemies 

5 = parameter to subroutine 600 

number of phasars 

d = difference between e and г and parameter to 
subroutine 700 

z$ = dummy variable for ENTER 

(,с) = random line and column position used by 
subroutine 600 


SCREEN LAYOUT 


There uere 53 
13 Enemy ships left - FIRING 


Energy units: 45 Phasars:48 





SUBROUTINES 


500 Displays one line of color 

510 Displays border of color 

520 Sets up (clears) viewer screen and message line 
600 Displays s enemies on the viewer screen at random 
positions, each position different 

700 Increases units и by а with display and sound 

800 ENTER entry 


PROGRAM LISTING 


10 BORDER 7: PAPER 1: INK 5: Б 
О SUB 500: GO SUB 520 

20 PAPER 5: FOR i=1 TO 3: GO 3 
UB 510: NEXT i: GO SUB Saa 
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nites. INS Ө, e; Өте 18, 1; "Energy 
3 ha 
40 LET _ш=5@: PRINT AT 18,14; Т 


57 PAUSE INT (RNGsZ54+1) +50 

50 LET rzINT i20480sRHD): LET 
5-і: GO SUB 68a 

?@ PRINT INK 2; PAPER 7;AT i65, 
1; FLASH 1;" ENEMIES SIGHT 
ЕР "1 PAUSE 1020: cO SUB 52 


80 INPUT FLASH 1; INK 3; "Епіег 


. humbetr of phasars to fire"'e 


Әй IF e<>INT е OR е<18 OR e»238 
THEN PRINT AT 16,1; INK 2; PAPE 
R 7; FLASH 1;"*x ERROR! Phasars 
jammed! ++": GO TO зае 
85 PRINT AT 18,28;е 
190 FOR іші TO 5: FOR ізла TO 2 
8 STEP 2: BEEP 0. Өз: HEXT i: Б 
EEP @.4,-28: NEXT. 
105 PRINT AT 15, s? INK 7; PAPER 
i; "There were “ір ` 
110 IF e=r THEN PRINT ЯТ 18,1;' 
ABSOLUTELY ACCURATE : 
LET 4=5@: GO SUB 720: бй TO 178 
120 LET d=ABS іс-г): LET szd: 6 
Dn SUB Бой 
i38 IF d«8 THEN PRINT AT 16,4; 
PAPER 7; INK 2;d;" Enemy ships f 
leeing “; PAUSE 258: GO SUB 520: 
LET d=1@: GO SUB 7800: cO TO 178 
135 IF d»fr THEN LET dzr 
140 PRINT PAPER 7; INK 2;HT 15, 
1;d;" Enemy ships tert - "; FLAS 
H 1; "FIRING": FOR ісі TO 4: ВЕЕР 
2.2,-20: ВЕЕР 0.085,20: NEXT i 
150 LET d=-d: GO SUB 720 
160 IF и‹1@ THEN PRINT HT 16,14 
; INK 1; PAPER 6; FLASH 1;0; ят 1 
5,1; INK 2; PAPER 7; “ENERGY TOO 
LOW - abandon ship! ": GO TO зае 
i78 GO SUB S300: NEXT 4 
200 INPUT "The end. Key 1 to c 
ontinue"; LINE z$: IF 2%5"1" ТНЕ 
м GO TO 50 
210 STOP 
380 FOR і=1 TO 28: BEEP @.5,15: 
BEEP 0,5,5: NEXT i: CLS : BORDE 
R 0: INK 2: PAPER @: FOR i=@ TO 
21: GO SUB 590: NEXT i: PAUSE Sa 
0: PAPER 7: INK 0: BORDER 7: STO 


Р 
500 PRIN 


RETURN 
518 PRIN : 


RETURN 
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520 PAPER i: 
@: FOR ісі TG j 
AT i: PAPER 7: INK 

RETURN 

öga FOR isi TO z 

510 LET L-IMT ileRHDxi8): LET 
zINT (1+RND4381: IF SCREENS íi 
lc " THEN GO To 618 

Sza PRENT Е ‘PAPER 1; INK 6;AT i.c 
p. Quot 
RI RETURN. 
ea FOR icu TO usd STEP i-2xsíd: 
“PRINT HT 18,14; INK 1; PAPER 
; " ": ВЕЕР @.1,2@: НЕХТ i: L 
uzczuc-d: RETURN 

agt INPUT “press ENTER"; LINE т 
$: RETURN 






Ж 2 ~j m 
d 


NOTES 


1. The SCREENS function is hardly mentioned in the Т 52068 
manual, but it can be useful, as shown at line 610. Subroutine 600 is 
displaying a number of enemies on the screen, in random fashion. 
However one enemy ship must not be displayed ón top of another, and 
ships must not appear over the edge of the televiewer. Thus we only 
print a ship where there is a blank on the screen. Thus to test whether a 
particular position on the screen (e.g. line 1, column c) is blank we 
simply need 


IF SCREENS (l,c) =“ .'' THEN --- 


r 2. Subroutine 700 demonstrates a nice way of updating the 
display of enérgy units to their new value. Instead of just printing the 
new value on top of the old one, numbers are cycled through with a 
BEEP for each number, until the new value is reached. The slightly 
complicated looking STEP value is needed because the counting may 
be up (1) or down (-1) 
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WORD GAMES 





4.1 AWFUL ANAGRAMS 


DESCRIPTION 


Many word games involve guessing what a word is. Awful Anagrams 
and Pace the Plank are both similar in method, but the former reveals 
the letters in the word as an anagram while the latter gives no such 
clues. It is a little tame to have a straightforward game shown on the 
TS2068 screen as it would be played on paper, so a little extra action is 
added. 


You are the intrepid adventurer trapped by the wicked warlock in the 
cavern of riddles. In the cavern with you is a cauldron being heated over 
a fire. The only way out is through an enchanted door which opens by a 
magic word. This is the word shown on the screen in a jumbled form. 
You must guess the word letter by letter until you have it all and the 
door opens. However every time you make a mistake the cauldron’s 
temperature rises, as shown by the thermometer. If it reaches the 
boiling point (200°) it will explode and take you, the enchanted door 
and the cavern with it. 


The user may replace the words at DATA line 30 with words of their 
own choice, providing the number of words (n) is shown correctly at 
line 10. 


METHOD . 
1. Initialize screen and variables 
а) Set n to no. of words available (10) 
b) Choose words w$ at random, based on limit of n (20-30) 
с) Set | to length of w$ l (40) 


d) Set p$ and x$ to same size as w$ 

e) Set p$ to all dashes 

f) Set letters-correct counter c to 0 (50) 
9) Set temperature t to 100 
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h) Shuffle word w$ into x$ 
i) Display screen format 
Clear message line 
Enter letter I$ and position p 
If p is invalid 
a) Message 
b) Reenter p 
c) Go to (4) 
5. If letter |$ = letter p of w$ 
a) add 1 to letters - correct с 
b) put I$ into position p of p$, part guessed so far 
c) display p$ 
d) If letters - correct с = no. of letters | 
(i) Display message of success 
(ii) go to (10) 
е) Goto (2) 
Add 10 to temperature and display temperature rise 
If temperature t = 200 
a) Display message of failure 
b) Sound of explosion and display 
c) Go to (10) 
8. If temperature t = 190 
a) Display warning message 
b) Wait for five seconds 
9. Goto (2) 
10. Enter number z$ 
a) If z$z "1", rerun 
b) Stop 


PON 


мо 


VARIABLES 
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no. of words in DATA statement 
general purpose counter 
= word to be guessed 
length of word w$ 
= word correctly guessed so far, initially all dashes 
= anagram of w$ 
= number of letters guessed correctly 
= temperature of cauldron 


Ш 


n 


$1 


= dummy character used in shuffling x$ 
— letter entered by player 

p = position of |— as entered by player 
= “1” to rerun program, “0” to stop 


(50-60) 
(70-115) 
(120) 
(130) 
(140) 


(150) 
(160) 


(170) 


(180) 


(190) 


(200) 


(210) 
(220) 


random number used to shuffle x$ and also radius counter 


SCREEN LAYOUT 


AWFUL ANAGRAM 


iobnbbsogl 


YOUR RTTEHPT 


h-ba 
123456759212345 - 


PROGRAM LISTING 


18 LET n=18 

20 RESTORE : FOR i-i TO INT (i 
*nxzRMHD): READ w$: NEXT i 

30 DATA "hobgoblins", казап 
ayer", "“giantkitlter", "elfking", Sg 
mmortalitu","inrinitu", “oracle” 
“elixir”, "magician", "faeries" 

4@ LET LzLEM u$: DIM рф(14:: DI 
M x$Sttii: PUR ісі TO і: LET рфіі) 


= xT 

52 LET С ай: LET t-1080: LET x= 
ш 

50 FOR ісі TO 1: LET rzINT (tit 
L4RND): LET 2%-х%і1): LET x# fils 
X&ír): LET x$ir}=z$: NEXT i 

780 CLS : PAPER 7: BORDER 7: IN 


a 
` 
80 FOR г=1 TO 12: CIRCLE 20,24 
NEXT r : 
Әй PLOT 18,25: DRRU @,149: DRA 
DRAW @,-149: PLOT 20,24: 


ð: FOR isl TO 11: eee 
у ":210-18#1: NEXT i 

3 . 1: PRINT RT 1,15; Табе. 
ct 3,12,“ 

72,182" 

": FOR isd TO 6: PRINT AT i, 
12; "MP; AT i,30; "Ш": NEXT i: PRIN 
T AT Б, 14;х% 
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S PRINT 








14 
5759012545 

ize ІНЕ Ø: PRINT HT 18,12; 

oF T 18,12; ” 

іза INPUT "Enter ietter: “ji; 
> Position ; 

ій IF 
R PLEN 
valid. 
D TO 14 

Ba IF $ 

Йй LET c 

ІМТ AT 14, 

i73 IF c= 
"ұшыр ARE Р 

ізе сб Ta 

i133 LET t Нн 

IF t=288 HT 
Gu'v& fail fu 
uidron ahak F 
#5: BEEP @ XT i: RINT HT 
£$,0;: РОК FO4: PRINT IHU 
ERSE i1; * i: BORDER 2: G 
a TO 228 

БОЙ IF t=198 THEN PRINT HT 18,1 
Б; FLASH i;"Cauidron із very hat 
=: PAUSE 238 

кіз Go TÛ ise 

#20 INPUT “key 1 ta repeat, Ø i 
о сізр:"; LINE z: IF =Ф=°1° THE 
мн RUN 

225 BORDER 7: PAPER 7: IHK @: C 


NOTES 


1. The technique used to form an anagram of word w$ (lines 
50 and 60) is very similar to the technique used in Chapter 8 to 
shuffle a pack of cards. It consists of going through the word letter by 
letter and swapping each letter with a letter in another (random) 
position. There are other ways of doing this shuffle, but this is the most 
simple and efficient. 

2. Make sure the computer is in lower case when you run this 
program. 
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4.2 PACE THE PLANK 


DESCRIPTION 


This is a Hangman variant in which the player has to guess a word, 

letter by letter. For every wrong letter chosen the player comes one step 
closer to death—in this case shown by a figure getting closer to the end 
of a plank suspended over water. 


The word to be guessed is initially shown as a series of dashes. As a 
letter is guessed, it is shown in its correct position(s) in the word. If a 
wrong letter is guessed the letter is displayed under the wrong letters 
heading and the figure moves along the plank. After nine wrong 
attempts, the figure falls from the end of the plank. The user may 
replace the words at DATA iine 100 with words of their own choice. 
(Be sure to use lower case when using this program.) 


This is a good example of a simple concept which makes full use of 
752068 graphics and sound. 


METHOD 
1. 


ON 


Initialize screen and variables 
a) Set up graphic symbols A, B, C for figure 
b) Set no. of words n 
c) Choose word w$ at random 
d) Set I to length of word w$ 
e) Set display pattern p$ to dashes, length | 
f) Set wrong letters string e$ to null 
g) Set no. of correct letters c to zero 
h) Set position of man to 19 
i) Draw screen format and headings 
Clear message line 
Letter entry 
a) Enter user's chosen letter 1$ 
b) if letter I$ has already been chosen then 
(i) Reenter I$ 
(ii) Go to (b) 
Test letter 
a) For counter k from 1 to length of w$ 
(i) If letter I$ = letter К of w$ then 
A) Add 1 to no. of correct letters c 


(10-50) 
(80) 
(90-100) 
(110) 
(110) 
(110) 
(120) 
(120) 
(130-180) 
(190) 
(210) 


(220-260) 


(270) 
(280) 


В) Display letter I$ at position k of p$ onscreen (280) 
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C) If c=I then 

(I) Display CONGRATULATIONS (290) 
(II) Return to (1) or stop (400-410) 
(ii) Repeat to 4(a) (300) 
b) If letter I$ is not in word w$ then (305) 
(1) Add letter I$ to wrong letters string e$ and display (310) 
(ii) Add 1 to man’s position m (310) 
(іі) Display man at column position т (310) 
(iv) If m=28 then (A) Display man falling into sea (320) 
(B) Return to (1) at STOP (400) 

(v) If m=27 then display warning message 

c) Go to (2) 


SCREEN LAYOUT 


-orr--tion 


WRONG LETTERS 
asel 





VARIABLES 


id = general purpose counters 

a$ = holds А,В ог C when setting up user-defined graphics 
n = number of words available to choose from 

w$ = word to be guessed 

| = length of w$ f 

p$ = word as displayed on the screen eg. —E—ES— 

e$ =string of wrong letters i.e. letters specified by player which 
are not in word w$ 
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с = number of correct letters chosen 
т = column position at which man is displayed on line 0 
$ = letter chosen by player 
ok = either 1, meaning I$ has not been chosen before, or 
0, meaning I$ has been chosen before 

inword = either 1, meaning I$ is in word w$, or 

0, meaning I$ is not in word w$ 
k = position number of letter in w$ currently being compared 
with I$ 
z$ = “1” to repeat, “0” to stop. 


PROGRAM LISTING 


1@ FOR ісі TO З 

26 READ аф 

за FOR d=@ TO 7: READ x: POKE 
USR афғд4,х: NEXT d 

аа NEXT i 

50 рата "A" ,63,60,255,68,62,25 
224,68,"B", 126, 126, 126, 126, 126, 1 
25, 126, 125, "04,126; o8, 84, 24, 24,2 
4, за, 30 

ӛа LET n=19: RESTORE 190 

$@ FOR і=1 TO INT (14+n#RNDi: R 
EAD wh: NEXT i 

1a7 DATA “treachery”, "sorcery", 
“espionage”, “mutiny”, "мапе laught 
er","murder","corruption","homic 










ide”, "blasphemy", "heresy" 

11@ LET t=LEN w$: DIM pili: FO 
R TO 1: ШЕТ pgiijs"—-": NEXT 
i: LET e&z"" 


122 LET c=8: LET m-i8 
ee CLS : PAPER 7: BORDER 7: IN 


1 
“aaa PRINT ЯТ 5. ac ПОН" ‚ат I 
BT 11,9; 
‚ВТ 9,2;р FOR iz8 
1@: PRINT AT ia EAT 1,15 
UM": NEXT 


158 PRINT INK 2;RT 14,1; "WRONG 
LETTERS" 
168 FOR ї=@ TO 17: PRINT INK 2; 
(PAPER SjAT i.l7;"MWÓÉ";TRB 51;" 
i: FOR izig TO 20. PRINT 
17; "ЕНЕ. 


172 PRINT INK В; PAPER 5; INVER 
SE 1;HT 3,12; —— ' 

ise a ME INK Qi PRAPER 5;HT @.m 
i ат . ат 2,m; “т 

130 PRINT LINK a; AT 15,8;" 


" ons INPUT "Choose a letter: “ZL 
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215 PAPER 8 

гей LET ok=1: FOR і=1 TO LEN €f 
: IF Us=es ti) THEM LET okzü 

230 NEXT i: FOR ісі TO LEN p$: 
IF {ф=рф(1) THEM LET ok=@ 


242 MEXT i 
25@ IF HOT ak THEN INPUT tilp; 
has gone. Letter: "1;1%: GO ТО 


262 LET inwordze 

278 FOR ісі TO 1: IF WIKI 51% 
THEN GO TO 388 

262 LET inuordzi: LET с=с+1: LE 
T pth) sl$: PRINT AT 9,2; INK 1; 


р% 

288 IF с-і THEN PRINT AT 18,8; 
INK i; FLASH 1; “CONGRATULATIONS! 
": G0 TD 409 

зай NEXT К 

308 IF inword THEN GO ТО 340 

318 LET esse gels: PRINT INK 2;8 
Т 15,3;е6%: PRINT AT й,п;" #°;Н 
4,0% "SAT 2,m;" I": LET ЫН 

328 IF m=28 THEN PRINT AT 18,8; 

INK 5; “one small step...": PRIN 
T E 28,0; PAPER 5; INK 1; FLASH 

i;u$: FOR i=@ TO 17: PRINT ЯТ i 

B8; " “SAT is1,28; "$°; AT is2, вз; 

ФЕ” ят i43,28; "1°: BEEP @.1,1@-4 
NEXT i: 60 TO 400 

`ЗЗ@ IF m=27 THEN PRINT AT 18, 
"Lock But belout" 

Зав GO TO i80 

400 INPUT "Кєч 1 to repeat, @ t 
ü Stop: "i; LINE z$: IF z#="i" TH 


410 STOP 


(Note: The characters А, В and С in lines 180, 310 and 320 must be 
entered in GRAPHICS mode (G cursor).) 


NOTES 


Two logical values are used in the program, namely ok and 
inword. Logical values, also known as flags or switches, can either be 
true or false, represented by 1 or 0 in the Т 52068 (see Chapter 14 of 
the Т 52068 manual) and can save time and increase program clarity if 
used in the right places. 


4.3 SHRINK 


DESCRIPTION 
In the old days when computer games were played on teletypes 
connected to large mainframe computers, the Eliza program was 
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developed. This was a very sophisticated program which simulated a 
psychiatrist interviewing a client. Shrink is a scaled-down version 
whereby the player keys in any thoughts which occur to him and the 
TS2068 gives a suitably analytical reply. It is a very useful 
demonstration of text analysis and each of the player's entries is 
processed in the following way. First keywords or phrases are sought 
e.g. "do you”, "I want”, "kill". Based upon the keyword found, a reply 
is chosen. However the reply may use part of the user's entry, in which 
case a certain amount of translation must be done, e.g. “Il ат” is 
changed to “уои аге”, “пау” to "'your'' and so on. Thus if the user 
enters ''| want to kill уои”, the program may reply ‘‘Why do you want 
to kill те”. 


In playing the game it is best to use short sentences with no 
punctuation. 48K of memory is needed. 


METHOD 


1. Initialize variables and screen 
а) Set no. of keyboards kn and no. of substitution pairs 


sn (10) 
b) Set reply line nos. into r (20-26) 
c) Set colors (30) 
2. Introduction 
a) Display welcome message (40) 
b) Enter user's name n$ (50) 
c) If first letter of n$ is not uppercase, make it 
uppercase (52-55) 
d) Invite discussion (60 ) 
3. Repeatfor questions q from 1 to 20: (70) 
a) Enter user's answer a$ (80) 
b) If a$ = "stop" then stop (81) 
c) Display answer a$ (85) 
d) If last answer then (i) Display goodbye message (86/370) 
(ii) Stop (380) 
e) If answer is less than two chars. long 2 
(i) set reply line number К to 
‘general’ reply (87) 
(ii) go to (I) 
f) Convert upper case to lower case and omit apostrophes 
in answer a$ (90-100) 
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g) If answer a$ = previous answer b$- 


(i) set reply line number К to ‘repeat’ reply (110) 
(ii) go to (1) 
һ) Store answer a$ as b$ (120) 
i) Puta full stop at end of answer a$ (130) 
1) Repeat for all the keywords (counter i from 1 to 
kn): — (140) 
(1) If answer a$ contains keyword k$ (the ith 
keyword) (170 -190) 


A) Set reply line number k to r(i) 
B) Set keyword position kp to position of 
end of k$ in answer a$ 


C) Go to (1) 
(ii) Repeat to (j) (200) 
k) Set reply line number k to 'general' reply (210) 
1) Get reply r$ based upon reply line number k (300) 
(choose 1 of the 4 available, at random) 
m) If last letter of reply r$ is * then (320) 
(1) Remove last two letters of reply r$ (58400) 


(ii) If keyword was at end of answer, до їо (п) (400) 
(іі) Set m$ to be the part of the answer a$ 
following the keyword (419) 
(iv) Repeat for all substitution pairs (420) 
А) Get word s$and its replacement t$ (430) 
B) If s$ is in n$, then replace 
itby t$ (440-470) 
C) Repeat to (iv) (480) 
(v) Put converted end m$ onto end of reply r$ (490) 
n) If full stop is still present at end of reply, remove it 
о) Display reply 
р) Display name at end of reply, on a random basis 
q) Repeat to (3) 


VARIABLES 


40 


kn 
sn 


= number of keywords 
= number of substitution pairs 


array r size kn — holds line nos. of DATA statements for each 
reply i.e. r(i) holds the line no. of the reply to a user's entry in 
which keyword number i is found 


b$ 
n$ 


the previous answer 
name of player 
number of question/reply (1-20) 


a$ — player's answer 
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= line number of DATA statement holding appropriate reply 
= general purpose counters 
= a character code number in the answer a$ 
= length of answer a$ 
= а keyword 
= length of keyword k$ 
= position іп a$ of end of keyword k$ 
= reply 
= length of reply 
ni = the part of the answer a$ after the keyword 
s$,t$ — a substitution pair i.e. t$ is substituted for s$ 


SCREEN LAYOUT 
This simply consists of text displayed on the screen e.g. 


Welcome. 

I am Or. Timex Sinclair. 

Please make yourself comrortabie 
What is your first name? 

Attila 


What would you Like to discuss, 
Attila 


Т do not feel very good. 
That is interesting, Aitila 


Can you help? 


ро you think I сап help? 





DATA 


It is vital to understand how the data is arranged and used. Line 1000 
contains the key words and phrases used to decide how to reply. 
The sequence that these are listed in is important. The reply to an 
answer containing “ао you” is at line 3000, for "dont you” again it is 
3000, for “сап you” the reply is at line 3019 and so on. This list of 
reply line numbers is given in the DATA statements at fines 25 and 26. 
For example the fifth number is 3020. This means that for the fifth key 
word (“до 1”), the reply is at line 3020. 


41 


Creative Games for the Timex Sinclair 2068 


Line 2000 contains pairs of substitution words. If a reply is going to 
incorporate part of the players answer e.g. 

PLAYER: I want to kill you 

TS2068: Why do you want to kill me? 


then “you” has to be translated to “me”. Thus "| am" is changed to 
"you are" and so on. However to avoid things getting translated 
twice e.g. 

you — me — you 
a technical trick is used when keying in the program. At the points 
indicated by an inverse space in line 2000 in the listing below, the 
user must put the TS2068 in E mode and then key 8. Nothing 
happens on the screen but a control character is placed in front of 
the substituted word so that it will not be retranslated. For those 
interested, it happens to be the control character for ‘normal brightness. 


Lines 3000 onwards contain the replies. There are four replies on 
each line, and one is chosen at random, based upon what keyword is 
found in the user's entry. Some replies have an asterisk at the end. 
This indicates that part of the user's entry will be added at the end of 
the reply. Line 5009 has replies suited to repetitious answers and 5400 
is used when no keyword is found. The game may be improved by 
adding more data according to the guidelines explained here. 


PROGRAM LISTING 


эт 
т 
"i 


cmm 
[1] | 





"E pr 


m 
m 






fi 

- Uu 
nic 
n 


Lan MAE a Г Р кә 





(йг 
ми ТА 


fee 










- Pre i [ote 


к 
ES E 


Led 


ra mi 


ЕТЕЛІК Ga 


ка 
а ы соте." "Т am Dr. 
^"Pil&ase make uo 





SQ INPUT f 
N PRIMT "БІ 
: GO To 45 

SB IF n&i: 
i =CHE (COD 
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Бе PRI 
бё PRI 
ta i£zcu 
FOR 
IHF 
H INT 





+ 
ү TIN: 


i 









Mo n zr uc uo an C C CO C с DOO 4d 


He IE ANT ГҮ С = уы ee Тг cung 


Do qnm 
aec 


a 
G0 TO 

10 IF a 

о TO заа 
ай LET b 
125 RESTO 

i38 LET 
142 FOR i 


де 
| 
г 
m 
ІШ 
7 ж 
жее! 





а NEXT 
@ NEXT 
@ LET 
dê RES 
: REAC 
! LET 
EN G 
IF 
{1 
РЕ 
ТР 






T INK |) "Well, I'm арга 
have -nangi her client 
> бп; UI vye enjoyed tai 
you." "Goodbye." 
ОР 
Б? 
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253 IF j>LEN тө%-с141 THEN GO ТО 
450 IF ту TO із5і-1:-с5% THEN 
LET m£-m&íi ТО j-Lie+t#imsij41st T 

021: LET j=j+ti-1 


ава NEXT i 

490 LET ch=r$+m§ 

500 RETU 

1909 CATA "do you". “dont Lio CE 
an gou","cant uou","do i","dont 
i" "can i'. "rant i","i feel", "і 
think", "am i","are you”, "і cánno 
TI cant", "i can","im ","i am" 
ні want", "because", "50 that", "ш 
ho", "why", "when", "where", “how, Е 
What", "Rill", "hit ","di e“, "dead" | 


MU "ts". "comp и" "кец" "ty ry 2 


OEE; UE stop ,"shut 8 


0 

15608 DATA "f" 

2000 DATA "i am" "you arem. nuo 

U аге", "ВІ ami", ^ HOU," ен, 
“Bey n?n I "o" pe,” o” oun i 
Bon ou "i" am "у" гей +, 

my n 1t ou rM ? ЕН uou А n тї ш. n 


3300 DATA “Why do uou ask whe the 
r I s","Sometimes I do z","uouid 
you Like me to +","Мо I da not 

g^ 


38180 DATA “Would you like me to 
+". "Сап you z","Do you think І с 
an ж", "ҺЫ 48 you ask this" 

зага рата "Perhaps you do +", "по 
uid you Like to +", “What answer 

would you Like", "ро you think yo 
и Witli x" 

38348 DATA "Do uou want to +", "a 
uid you Like to be able to #",°T 
5 it normal to #","“Have you aske 
d anyone else this" 

З@4й DATA “Please explain these 
feelings","Do you iLike feeling t 
n way“, "Many people feel this 
ay", "Ba you often feel +" 

53180 DATA "Яге you sure”, "Why do 
you think #","You seem uncertai 
n","Uhat makes you think x" 

з11@ DATA "Do you want to be ж”, 
"I think you mag be +", "бо you о 
ften ask yourself this";"Is this 
important to uou" 

3128 DATA "I would prefer not to 
say", "Teil me Whether you are + 
","Do you Like to think that I a 

m ta", "Perhaps you think I am ж” 


ho 





3138 DATA “Why cant your “Are wo 
u zure you cant z","Hauld you ii 
ke to s","Is this normal for you 
Bid@ CATA "Can you really”, O 

your friends s","Do you Like i 
па able to z","Can you always +" 


з150 DATA “Have uou always been 
+". you dream about being =", 
ім you want me to be s","DO you 
enjoy being x" 

зіве CATA “Why do you want x",'I 

ош Long have you wanted th 





FEL 
3170 DATA "Is this the oniy reas 
ап", Are there other reasons", “І 
= this reatiy ho", "Bo you belie 
ve this if the real reason" 
S182 CATA “Let,s forget that. ы 
hy аге you a ing questions =H 
ош Would you ле пе to answer 
that", "Does t question worry y 
cu’, "Da you w t io zit іп mu ch 
air" ve 
Z2I CATA "Do Li Н 
"ро you have Len re 
‚Ре азе caim FSE 

a pistol in my awe 
S200 DATA "Doe est 

ou", "Do you i аға 

You have mar аге 

u often morbi 

іріп DATA "Dao Like 

"Аге you Fri ened o 
g"*,'"LlHhat do y do when 
nat here”, “Hh calor аге 

ters in your dreams 

Z220 CATA “Are you keen am Tue.” 
Do:gou find Tu bori ing” 5252 your 
T big”, Vila f a е 
زلا‎ ching 
S220 CATA 
ү r time 


СІЛ oem ham 
CMe qs oc c fa ceo cnmuagsomimo se 
etn fa c ШШ eu pO TIA 
сз E fm 
w EL 
г eame 
m Ж = set 
- P [»] 
1 т 
бг 
т 





ЮЙ 
m 

езір- 
of 
m 
= 
ut 
ж 
о 
чі 
Га] 
ш 
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Note: In line 2000, at the points marked with inverse spaces, enter 
E mode and press 8, as described in the DATA section above. 


NOTES 


Finding and replacing words or phrases is fundamental to this 
program, so the techniques for carrying out these operations are now 
more fully described. І 


Consider the problem of finding the word DREAM іп а sentence 59. 
DREAM has five letters so every five-letter sequence of the sentence 
must be examined. If we assume the sentence has 20 letters we 
therefore must examine the sequences: 


s$(1 ТО 5), s$(2 TO 6), s$(3 TO 7), ..., s$(16 ТО 20) or more 
generally s$(i ТО i+ 4) with i=1,2,3, ..., 16 


For a sentence s$ of length sl this generalizes to looking at 
s$ (i TO-i+4) with i=1,2,3,..., в1--4 


in a completely general case where we are searching for a word of 
length wl we examine 

s$(i TO i+wl—1) with i2 1,2,3, ..., sl—wl+1 
To check this, consider the last value of i and see that it means that 
the last sequence examined is s$(s — wl + 1,sl) 


Thus a construction such as that at lines 170-190 may be found. 


Substituting for words or phrases is a bit more complicated, mainly 
because the new word may not be the same length as the old word. 
The general principle is: 


1. Find the word to be replaced, say between sentence 
positions pT and p2 inclusive 


2. Change the sentence so that it becomes 
Characters 1 to (p1-1) + new word + characters (р2+ 1) to end. 


It is not possible to use a FOR-NEXT loop here because of problems in 
defining the limits of the FOR statement. The length of the sentence 
changes in the middle of the loop. 


Lines 440-470 above show how a word s$ is replaced by t$ in the 
sentence m$. 
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BOARD GAMES 





5.1 COPYCAT 


DESCRIPTION 


This game is based on the popular electronic toy, found in a variety of 
forms, which produces random collections of colors and sounds which 
the player then has to repeat. 


Use is made of the TS2068 color and sound facilities, but as it is 
difficult to enter a color or sound on the keyboard, the normal color 
numbers are used. Thus for each color, a block of color appears on the 
screen with the color number (e.g. 2 for red, 3 for magenta) on the top 
right. There is also a corresponding tone. The number of colors to be 
remembered and repeated rises progressively from 1 to 30. 


METHOD 
1. Set up screen and variables 
a) Set screen colors (15) 
b) Generate a random sequence of color numbers (@-7) in 
array г size 30 (20) 
2. For sequence length п from 1 to 30 (30) 
а) Press ENTER (40) 
b) Produce color and sound sequence, 
length n (50-80 апа 58300) 
с) For counter с from 1 to sequence length п (90) 
(i) Enter color at position с (а(с)) 4 (100) 
(ii) If a(c) is invalid (А) Reenter 
(B) Go to (ii) 
(iii) Produce color a(c) (120 and SR 300) 
(iv) If a(c) incorrect i.e. not=r(c) then (130) 


(i) Sound error buzz 
(ii) Go to 3(b) 
(у) Repeat to (c) (140) 
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d) Enter option z$ (150) 
(i) Ifz$ = “5” then stop 
(ii) Otherwise repeat to (2) (160) 
3. End 
a) CONGRATULATIONS message (170) 
b) Reveal sequence of colors in array г (187-210) 


SCREEN LAYOUT 


E 
اا‎ 


Fal че done i 
iciontinue ОГ 





VARIABLES 


array r = holds random color numbers, size 30 

array 1 = holds sequence of color number entered by player 
i = general purpose counter 

n = length of color sequence currently being shown 

сп = color number supplied to subroutine 300 

c = position of color in array r currently being considered 

z$ = dummy value 


SUBROUTINE 


SR300 Displays a block of color, number cn, with cn at top right. 
Also gives an appropriate BEEP, depending on cn. 


48 


PROGRAM LISTING 


NOTES 


10 DIM rí380): DIM аза; 
"o PAPER 7: INK 9: BORDER 7: C 


20 FOR ісі TO 30: LET rii} =INT 
pod HE NEXT i 


e 
4à INPUT "Press ENTER when you 
are ready"; LINE z£ 
5а FOR c=1 TO n 
ӨЙ LET charic}: GO SUB 300 
33 CLS : NEXT c 
gø FOR roy TO n 
i88 INPUT ("What was color numb 
er ";c;"?");aiC) 
11@ IF а (сі cx INT aici OR aíc)»7 
OR ас! ¢$ THEN INPUT “Between à 
& T. Reenter:";aíc): GO TO 149 
їг@ LET сп=а (с): GO SUB зде 
is8 IF асі {ric} THEN ВЕЕР 2,- 
28: GO TO 188 
148 NEXT c 
1580 INPUT ("You've done ";n;" c 
orrectiu (continue or i 
S)ltop?icvs31"); LINE 2%: IF 7%-"5 
" THEN STOP : 
180 NEXT п 
178 PRINT AT 15.8; "Heli done! 
You've beaten me." . 
185 PRINT AT 15,0; “Тһе sequence 
шас:" 
187 PAUSE 158 
198 IF n>3@ THEN LET nz3ü 
2892 FOR ісі TO n: PRINT BRIGHT 
1; PAPER riil; INK Ә;гііз);: BEEP 
Ә.5,гі1і) 5-20: NEXT i 
210 STOP 
300 FOR i=6 TO 9: PRINT 8T hr. 
; BRIGHT 0; PAPER cn;" NEX 


T i 

3A5 PLOT 88,127: DRAW @,-31: DR 
HU 31,80: GRAY 8,31: DRAH -31,0 
310 PRINT HT 56,14; ІМК 8;cn: BE 
EP 1,сп+5-29 

328 RETURN 


Chapter Five 


Readers may notice that the color sequence entered by the player need 
not be stored in an array (a above) with the program as it stands. If 
however the program is required to be extended, a stored sequence 
probably will be required. For example one may wish to print out the 
player's entries at the end of the program to compare them with the 
actual code. Thus we have a case of a certain amount of redundancy 
built in to allow for future modifications. 
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5.2 WHAT’S THE CODE? 


DESCRIPTION 


This is a sophisticated version of the famous board game with colored 
pegs in which a color code has to be found. The computer chooses the 
code, with between three and eight color positions, as specified by the 
player. Each of the player's attempts is shown and marked, in the 
normal way, with black or white pegs. A black peg corresponds to a 
color chosen correctly in the right position. A white peg indicates a color 
present but in the wrong position. To make colors easier to identify the 
color number is also shown in the colored square. The player has 
thirteen attempts to find the hidden code, after which it is revealed. The 
player can also specify at the beginning of the program whether or not 
certain colors will be repeated in the code. 


METHOD 
1. Initialize screen and variables 
а) Set screen colors (19) 
b) Enter no. of code positions p (20) 
c) If p invalid (i) Message and reenter (30). 
(ii) Go to (c) 
d) Enter whether or not repeated colors required (40-50) 
e) Draw screen format (60-80) 
2. Generate random code. For counter i from 1 to 
position p (100) 
а) Set code position c(i) to random number (0-7) (110) 
b) If repeats allowed or i= 1 go to (d) (119) 
c) Otherwise if c(i) — any previous element of code 
array c then go to (a) (120-130) 
d) Repeat to (2) (140) 
3. For go number g from 1 to 13 (200) 
a) For counter i from 1 to position p (210) 
() Enter players choice of color no. i into a(i) (220) 
(ii) If a(i) invalid then (A) Message and reenter (225) 
(B) Go to (ii) 
(іі) Display color and number a(i) (230) 
(iv) Repeat to (a) (240) 
b) Enter confirmation z$ (250) 
(i) If z$ '' '' then А) rub-out chosen code (260) 
B) Go to (a) 
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c) Marking 
(i) Set black (b) and white (w) counters to zero (300) 
(ii) Сору code (array с) into array d (300) 
(iii) (BLACK MARKS) For counter i from 1 to 
positions p (310) 
A) If user's choice ай) = code d(i) (320) 
(1) add 1 to b 
(II) set ай) and d(i) to 9 
B) Repeat to (iii) (330) 
(iv) (WHITE MARKS) For counter i from 1 to 
positions p (340) 
A) If user's choice ali) = 9 then go to (c) (350) 
B) For counter j from 1 to positions p (360) 
(I) If user's choice ali) = code dij) (370) 
then add 1 їо w and set a(i) and d{j) to 9 
(Il) repeat to (B) (380) 
C) Repeat to (iv) (390) 
(v) If black points b = no. of positions p then (395) 
A) CONGRATULATIONS message 
B) Go to (5) 
(vi) Display b black marks and w white marks 
starting at line |= 0 (40 0-430) 
d) Repeat to (3) (450) 
4. Display OUT OF GUESSES message (460) 
Б. Revealcode ` (500) 
6. Return to (1) or stop Е (510 -520) 
VARIABLES 


p = no. of code positions 

array a = user’s guess at code 

array с = random code 

array а = copy of c 

2,29 = dummy input variable 

rep = 0 for repeats not allowed, or = 1 repeats allowed 
| = line counter 


с = column counter 

ij = general purpose counters 
g = go number 

w = white marks 

b — black marks 
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SCREEN LAYOUT 


ары 


өзенмен 
f po po por po par mor ies 


pu 
Pd» D GO 
р 


ш 


PROGRAM LISTING 
(18 PAPER 7: BORDER 
E INBUT, "How many 





НЕМ IHPUT ір; їз па 
& 8. Humber:"i;p: BD 
35 DIM aipi: DIM c 
Фа INPUT "DO you i 
colors? =a: р” 
52 LET reps: LF z 

герші 

@ LET 

TEP 1 

EXT i: 

ALL za 

R 


rd ل ل“‎ d ds 


ke 





[^ 


БӘЛЕГЕ 


A CUL CI Ca Fra 





7: INK 8: C 


code positi 


p< INT p OR різ OR р›8 


ot between 3 
To 38 
ipi: DIM dip 


ant repeated 


P 


$z2"g" THEN L 


i 


80 PRINT AT 104P, 23; "СОСЕ" 


120 FOR ісі TŪ p 


11@ LET fiil =INT iB8zRHD3: IF re 


R i=1 THEN GO TO 
A FOR ісі TŪ i-i: 
1 THEN GO TD 11@ 
ізй HEXT j 

і48 НЕХТ i 






шәй FOR g-i TO 13 
zia FOR i-i TŪ p 
220 ЇМРИТ i “Enter c 
ата 


52 


135 
IF ciilscij 


225 IF atii<¢+INT ай!) OR alil а 
DR аійі)>»? THEN INPUT “Must be à 
- 7. Reenter: ";aíil: GO TO z2 


= Р 

838 PRINT AT 341,942; BRIGHT 1; 
PAPER 2512: INK 9;aí1i! 

240 НЕХТ 

250 INPUT "Press s to cancel, 
nu other key to confirm:";z$ 
260 IF záz"x" THEN FOR ісе TO 
+P: PRINT AT i,9z2;" ": NEXT 1: 
GO TO 216 

300 LET w=8: LET b=@: FOR ісі Т 
O p: LET dtilecti): NEXT i 

318 FOR ісі TO p' 

Зей IF аі) =4{і) THEM LET bzb4i 
: LET aíijiz8: LET díil- 

330 NEXT i 

340 FOR ісі Тар 

250 IF аі1)-8 THEN GO TO 3368 


370 IF aíiilsdij) THEN LET ш=ш+1 
: LET аі) =9: LET diji =3: GO TO 
saa 

380 НЕХТ j 

Зэй НЕХТ i 

385 IF bzp THEN PRINT AT 28,8; 
INK 3; FLASH 1;"You^ve gat it in 

"39;" goesi": GO TO See 

480 LET. L=8 

495 IF Ь=а THEN GO TO 428 

418 PRINT AT £,9#2; INVERSE 1;" 
Вас LET і=1+1: LET ь-ь-1: GO ТО 

420 IF ш=@ THEN GO TO 44@ 

430 PRINT AT 1,942; BRIGHT 1;"u 
dá LET {={+1: LET wzu-1: GO TO 4 

@ 

450 NEXT а С 

450 PRINT HT 38,8; “5оггу. You 
have not guessed it"'"Iti is show 
n above" 

5880 FOR і=1 TO p: PRINT AT Sti, 
30; BRIGHT 1; PAPER сі); INK 9; 
Ciil: NEXT i А 

510 INPUT “Enter 1 to repeat, ð 

to stop",z: IF г-1 THEN RUN 

S20 STOP 


йош 


Chapter Five 


In this listing the marking strategy is important. This is shown at steps 
c(iii) and (iv) or program lines 310 to 390. The black marks must be 
worked out first and any matching pegs must be ignored when moving 
on to white marking. Similarly a peg must not be allowed to count for 
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more than one white mark. To ensure this, a color is set to 9 when it 
has contributed to either a black or white point in the marking. 


Б.З SOLITAIRE 


DESCRIPTION 


This is the familiar board game using 33 peg positions with the middle 
peg removed. The objective is to end up with one peg left (preferably in 
the middle position) by means of jumping one peg over another, the 
jumped peg being removed. This TS2068 version allows legal 
horizontal, vertical and diagonal jumps. The player specifies positions to 
move from and to by entering a pair of row and column positions. To 
allow for mistakes or for stalemate positions two extra facilities are 
available: if the player enters a zero for the row or column position of the 
“from” position, the game ends; if zero is entered for the ‘’to’’ position 
the current "'from'' entry is cancelled and the complete move may be 
reentered. 


METHOD 
1. Initialize screen and variables 
a) Screen colors and clear screen (10) 
b) Set up graphic for peg (p) (20-30) 
c) Set up array b to hold board (40-50) 
d) Print titles (60-70) 
e) Display board with middle peg removed (80-120) 
f) Set no. of pegs left (np) to 32 (130) 
2. Player's go 
a) Clear message lines (150) 
b) Enter move: (160) 
(i) Enter position from which to move (fr,fc) (170) 
(ii) If value = 0 then (175) 
A) STOPPED message, including pegs left (np) 
B) Go to 3 
(iii) If fr or fc invalid then (180) 


A) Message and reenter 
B) Go to 2(b)(ii) 


(iv) Display ‘from’ position (fr,fc) | (190) 
(v) Enter position to which to move (tr, tc) (200) 
(vi) If value = @ then go to2 (210) 


54 





Chapter Five 


(vii) If fr or fc invalid then (215) 
A) Message and reenter 
B) Go to 2(b)(vii) 
(viii) Calculate column increment (ic) and row 
increment (ir) (220) 
(ix) Calculate signs of increments (sc and sr) (220) 


(х) If move invalid (ic, ir not equal to 2 ог 0) then (230-250) 
(A) Message (NO SUCH JUMP) and reenter 


(В) Go to 2(b)(vi) 
(xi) Calculate position of jumped peg (jr, jc) using 

sr and sc ` (260) 
(xii) If no peg at this position then (270) 


(А) Message (МО SUCH JUMP) and reenter 
(B) Go to 2(b)(vi) 


c) Display ‘to’ position (tr,tc) (280) 
d) Effect move in array b (290) 
е) Display move on board with sound (300) 
f) Decrement pegs left (np) by 1 (310) 
9) If only one peg left then (310) 
(i) Congratulatory message and sound 
(і) Go to 3 
h) Go back to 2 (320) 
3. Епа 
а) Rerun or stop (330-340) 
VARIABLES 


ij = general purpose counters 

x — pattern for peg graphic; also parameter for FN a 

array b — holds board (7 x 7) 
Value 1 denotes peg, value — 1 denotes hole, and value 
0 denotes invalid position 

np = number of pegs left on board 

y — parameter for FN c 

fr, fc — position to move from 

tr, tc — position to move to 

jr, jc = jumped peg position 

ir = difference between tr and fr (row increment) 

ic — difference between tc and fc (column increment) 

sr = signum (SGN) of ir (ie. — 1 if negative, 1 if positive, 0 if0) 

sc = signum (SGN) of ic 
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SCREEN LAYOUT 


"ма. С Т Ња 





FUNCTIONS 


FN a = true if parameter x is non-integer or outside the range 
1-7, i.e an invalid row or column entry 

FN c = gives character code 159 (peg graphic) if parameter y 
is 1, and code 79 (hole) if y is — 1. Used to display board 
using board array b. 


PROGRAM LISTING 


ій PAPER 7: BORDER 7: IHR B: F 
LAZH а: CLS 
15 DEF FH 
xili OR ix 
=11 #153+ 4= 
Ей FOR ісе TÛ 7: 
USR "P'"ri,x: NEXT i 
за DATA @,68,126,126,126,126, 
= 









m 


8,8 
48 DIM bir. 7}: FOR ісі ТО 
он j zt та 7: READ bii, j}: Е 
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13;: FOR ізі Ta 7 
Әй IF bli, j) =a THEN PRINT "BH" 


1@@ PRI NT PAPER 4; INE F:CHRS 1 
FN cíbti.Jjl)); 
25 МЕХТ j: MEXT i 
120 PLOT 193,158: DRAH 57.8: DR 
НЫ 2,-57: DRAH -57,8: DRAN B,57 
130 LET npza3z 
ise PRINT AT 14,2; " 


iss PAUSE 188 
i58 PRINT AT 14,4; ІНК 2; “Move 
from T7"; 


لح ل“ 
ae‏ 


n cu 
in ni 


1 


po 


шару 
кее IT ае 
т 


MD d f mn 
Ey cO en t 





m 


PRINT CHRS 8B;"i"friU.Uifl; 


pu pe 
23 POT pre rm es 
fa 
б] 
e 


amc 


( 


rmm 
“E — FHIO DO eret pe I eh 
tet soy 


mie 
b eur [щл 


[Dni 
ie fu 
5 


mm 
ШҮ 

m 

ка 


-. 





1 THEN INPUT " 


270 IF bí 
H6 peg ta - reenter: 
rouz"i;tr" „29 TO zin 
oot PRINT i try түзе; 
E LET Бі 
jz-1: LET 
ET PRINT 


4; tri2; CHR 
irs, +©+1®; 
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318 LET пр=пр =i 
RINT AT 18,1; i: ASH 
u have compie һе 22 : 
EEF .5,15: BE 48,25: 60 3: 
ЗЕЙ PAUSE 108: GO TO 15@ 
230 PAUSE 159: INPUT “Press ЕНТ 
ER to play again, ог @ to stop 
LINE 2%: IF z$z"" THEN RUN 
348 STOP 

NOTES 


1.. Much of the program is concerned with checking that the 
user's entry of a move is valid. Apart from checking whether there is 
a piece to be moved and a hole to be moved into, this validation 
involves calculating whether it is a correct two-place move in a 
vertical, horizontal or diagonal direction, and also whether there is a 
relevant peg to be jumped over in this direction. A valid move can be 
considered by looking at the differences between the 'to' and 'from' 
positions entered, in terms of the row difference (ir) and the column 
difference (ic). If the unsigned values of these are either 0 or 2, with 
at least one being non-zero, then it looks valid. However, the 'jumped' 
position must finally be checked to find whether it contains a peg. This 
is done by looking at the signs of the differences ir and ie, as shown in 
lines 220, 260 and 270. 


2. The peg graphic character is displayed, not by an explicit 
PRINT “Р”, but by referring to the character code of graphic Р, i.e. 
159. This method facilitates the use of function (FN c above) which can 
print either a peg or a hole as appropriate. 
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SIMULATION GAMES 





6.1 SINK THE SHIP 


DESCRIPTION 


This short game is designed to show the principles of an interactive 
game in which the player has to react quickly and accurately. It 
resembles fairground games in which you try to hit a moving object 
by firing an air rifle. A ship moves left to right across the screen 
against a backdrop of the numbers 1 to 9. The player has to press the 
appropriate number when the ship is exactly under it to score a hit 
but it is not possible to win by just keeping a finger on a number key 
and waiting for the ship to pass by! 


The speed of the ship's motion is governed by line 5. If a smaller 
number than 15 is entered, the ship moves more quickly, while a 
larger number makes the ship go more slowly. 


METHOD 

1. Initialize screen and variables 
a) Set wait period to 15 (5} 
b) Set up user-defined graphic for ship (10-40) 
с) Set hits h to 0 (50) 
d) Set up screen colors (50 and 70) 
е) Display screen format and titles (60 and 80) 

2. For go number g from 1 to 10 (100) 
a) Set position p of ship to 1 (110) 
b) Clear ship and message lines (110) 


с) Rub-out ship's previous position and display itat p (120) 
d) If keys 1-9 pressed then 
(i) Set sp to position of shot (i.e. position of number 


on screen) 

(ii) Display shot at this position 

(iii) If shot position sp = ship position p then (150) 
A) Message and sound confirmation (160) 
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B) Add 1 to hits h and display h (160) 

С) Gotoli) . (160) 

e) If key still pressed go to (e) (180) 

f) Count up to wait number (185) 

g) Add 1 to ship position p (190) 

h) If ship position p< 31 then go to 2(c) (199) 

i) Press ENTER (200) 

j) Repeat to (2) ; (210) 

3. Display number of hits and stop (220-230) 


SCREEN LAYOUT 





VARIABLES 


wait = delay governing speed of ship's motion 
counter used in setting up ship graphic symbol 
bit pattern used in setting up ship graphic symbol 
number of hits scored 

general purpose counter 

go number 

position of ship - a column number on line 3 

= holds value of key pressed 

sp = shot position - a column number on line 3 

$ = dummy variable 


о 
| 


pon! NU | 


= r 


зоо 
th 


PROGRAM LISTING 









Б: 
2 


естріпті іт 
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1@@ FOR g-i TO 12 _ 
11@ LET р=1: PRINT AT @,10;9;AT 


“AT 5,0;“ 


ісе PRINT AT 23,P-1;" 5" Р 
138 LET п%=ЇМКЕҮ : IF пфУ"9° OF 
n$£z"1" THEN GO TO 128 

135 LET spz3sUHL mei 

140 PRINT HT 3,5p; INVERSE 1;"x 
": ВЕЕР 0.2,-20 

15@ IF spéi:p THEM GO TO 18а 
16@ PRINT AT 56,18; FLASH 1; DIR 
ECT HIT!": BEEP @.2,1@: ВЕЕР @. 
.;m88: BEEP @.2,15: LET Һ=Һ+1: PR 
HT HT @,38:h: GO ТО 288 
ee IF INKEYS<3"" THEN GO ТО 18 
185 FOR i-1 TO wait: NEXT i 

133 LET р=р+1: IF р:=31 THEN 50 
TO 128 

вай INPUT "Press ENTER to conii 
rnue:"; LINE 23 

218 НЕХТ а 

220 PRINT AT 5,80;"That's it. ү 
өп hit ";h;" aut or as" 

230 STOP 


(Note: The 6 at line 120 must be entered in graphics mode (б 
cursor).) 


NOTES 


At first line 18@ may appear unnecessary, but it is needed to prevent 
cheating. Without this line the player could keep a key down and keep 
shooting, so that the ship was bound to be hit when it passed the 
number. 


6.2 HEADQUARTERS 


DESCRIPTION 


Headquarters is a sophisticated development of the concept in Sink the 
Ship. The player is in charge of a missile launcher which he moves left 
(key 5) or right (key 8) and can fire (key 7). The launcher has to protect 
the player’s headquarters bunker which is being attacked by enemy 
bombers. These bombers appear from the left of the screen and drop 
their darts of destruction with (almost) unerring accuracy. Ten bombers 
can appear, and if the headquarters suffers six hits it is destroyed. 
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METHOD 
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1. 


Initialize screen and variables 

a) Set up positions for plane, ground and HO 

b) Set bomb as not dropped and missile as not fired 

c) Set HO building to undamaged (h$) 

d) Set planes hit (p) to Ø and HO hits(h) to 0 

е) Set up user graphic for plane 

f) Draw screen format 

For raid number g from 1 to 10 

a) Display g 

b) Clear ground lines and plane line 

c) Set initial plane (pc) and launcher (Ic) column 
positions 

d) Add 1 to plane position (pc) 

е) If plane at RH side of screen go to (m) 

f) (DROP A BOMB?) If bomb not dropped then 


(10) 
(10) 
(10) 
(10) 
(20-30) 
(40-60) 
(100) 
(105) 
(110) 


(120) 
(130) 


(140) 


(i) If plane at correct position or 3% chance then 


А) Drop bomb 


B) Set bomb line (bl) and column (bc) positions 


д) Display plane 
h) Display launcher 
i) If bomb dropped then 
(i) Rub-out old bomb position and set up new 
bomb position 
(ii) If bomb hits HO 


(145) 
(145) 
(150) 


(160) 
(170) 


A) Display НО (h$) flashing with sound of explosion 


B) Add 1 to HO hits (h) 
C) Remove part of HO and redisplay 
D) Set bomb as not dropped 
E) If hits h 2 6 then 
(1) Message of defeat 
(Il) Go to 4 


(180) 
(190) 
(210) 


(іі) If bomb hits ground then display explosion with 


sound 


j) If missile fired 

(i) Rub-out old missile and set up new missile 
position 

(ii) If missile below plane then go to (К) 

(ій) If missile missed plane then 
A) Display and sound explosion 
B) Set missile as not fired 
C) Go to (k) 


(220-230) 
(250) 


(260) 
(260) 


(280) 
(280) 
(280) 


Chapter Six 


(iv) (PLANE HIT) Display and sound hit on plane, 
and message 
(v) Go to (m) 
k) Test key pressed 
(i) If no key go to 2(d) 
(ii) If key = 5 then move launcher left (if possible) 
(іі) If key = 8then move launcher right (if possible) 
(iv) If key = 7 then 
A) If missile not fired then 
(1) fire missile 
(Il) set missile position 
1) Go back to (d) 
m) Press ENTER 
n) Rub-out old plane and launcher positions 
о) If missile fired then rub-out missile and set to 
not fired 
p) If bomb dropped then rub-out bomb (if unexploded) 
and set to not dropped 
q) Repeat to (2) 
3. (HOOK) Message of congratulations 
4. Rerun їо 1 or stop. 


SCREEN FORMAT 


Raid по.4 





VARIABLES 


рі,рс = plane line and column position ` 
һас = НО column positions 
gl = ground line position 


(290) 


(300) 
(300) 
(310) 
(320) 
(330) 


(340) 
(350) 
(355) 


(356) 
(357) 
(360) 


(380) 
(400) 
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bl,bc = bomb line and column position 
ml,mc = missile line and column position 
dropped = bomb dropped (=1) ог not dropped (= 0) 
fired = missile fired (=1) or not fired (= 0) 
h = number of hits on HO 
= number of planes hit 
= general purpose counter 
= bit pattern used in setting up plane graphic І 
$ = string used to display НО at various stages of destruction 
n$ = value of key pressed 
= line number used by subroutine 650 


SUBROUTINES 


SR600 Displays HO 
SR650 Clear line | 
SR700 Sound explosion 


PROGRAM LISTING 


18 LET рі=2: LET gl= 18: LET ha 
с=23: LET dropped=8: LET fired-ü 
$ LET hg=" . - LET Һ=@: LET 


20 FOR i=@ TO 7: READ x: POKE 
USR "P'"4i,x: NEXT i 
за DATA 0,0,128,252,255,48,98, 


T PAPER 7: BORDER 7: INK 8: C 


S@ FOR ісі ТО 415: , PRINT PAPE 
В S-íi»gi);TRHB 31;" ": NEXT i 

Ба GO SUB 602 

188 FOR 4-1 TO 16 

105 PAPER 8: INK 9: PRINT HT @, 


33 

118. FOR Lest то Siti: GO SUB 65 
0: NEXT 1: LET {=рї{: GO SUB БӘЙ 
128 LET Рс-й: LET ісі 5 

138 LEL Рс=рс+1: IF pc=30 THEN 
GO TO 350 

149 IF NOT dropped THEN IF рс= 
@ OR RND»20.97 THEN LET dropred= 
: LET bizpl-1: LET ьс-рс 

145 PRINT AT pl,Pc-1;" P";RHT gt 


2 
i 


-l,lCc;"m"; OVER 1; ЯТ gi-l,.ic;"t" 
5450 ІЕ МОТ dropped THEN GG TO 2 
160 PRINT HT bl,bc;" ": LET be= 


Ьс+1: LET bl=bl+2 
178 IF ATTR íbi,bc)«54 THEN PRI 
NT AT bi,bc;"o": GO TO 220 
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1260 FLASH 1: GO SUB 888: 
: Р PEREN 





138 IF h5 THER 
=@@ PRINT AT ag, 
been destroyed, 6 
“ planes’ 

210 cO TO аза 
БЕ IF biigl THEN GO TO 25a 

230 FLASH 1: PRINT AT bL, be; ts" 
: GO SUB 788: FLASH е: о TO 
252 IF МОТ fired TREN 
268 PRINT ar Lait 
mi-3: IF mi: 
mci;"t": GO Tb. зар 
270 IF mc=pc THEN G 
260 PRINT та mi.mc; 


5 
“Your H& Һа 
+ 








": LET fire: еп 

290 PRINT FLASH 1; 

ECUS: GO тва: 
PRINT HT gisi1,i2: FL 
ІМІ: PAUSE 3ü 


382 LET n$zIHKEYE: 
H GO TÛ 13а 


312 IF n£-"5" THEN IF 
N PRINT HT gi-i,ic;" " 
б-т: GO TO іза 

322 IF п=°8" THEN I 
THEN PRINT HT si-i.ic; 
E GO TO ite 

ža IF n$£-"à8" THER 
„THEN LET Бігесші: L 


342 GO TO ise 

350 INPUT “Press ENTER: LIHE = 
% 

355 PRINT HT pli.pc;" “AT gi-i, 
Denon : 

356 IF fired THEN PRINT AT mi f 
сің"; LET fFired=e 

557 IF dropped ТНЕМ LET dropped 
Ее: iF biligi-2 THEN PRINT AT bl, 
с 

358 NEXT я 

ЗӘ@ PRINT HT 9141,5: "Your НӘ ha 
= survived. HS "Ip;" planes 


were shot doun" 
408 INPUT “Key 1 to repeat, а t 
ыт LINE z$: IF z$="1" THEN 


418 STOP 


588 PRINT BRIGHT i; PAPER =; ІМ 
K LSAT gi-2,hqc-i;h&ii TO 21;HT 
gi- -1, Һ4с-1;Һ%із TO 5i: RETURN 

550 PRINT PAPER 8: AT lB; 

": RE 


TURN 
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700 FOR ісі TO 18: BEEP .1,-15: 
BEEP .1,-20: NEXT i: RETURN 


(Note: The P at line 145 must be entered in graphics mode (G 
cursor).) 


NOTES 


1. Movement. The plane moves one column position at a 
time; the launcher moves two column positions at a time; the missile 
moves up three lines at a time; and the bomb moves diagonally one 
column and two lines at a time. i 


2. Hitting the HQ. The program tests whether the bomb hits 
the НО in a novel way. The HQ is always displayed BRIGHT ly, and 
this is the only set of positions on the screen with this BRIGHT 
attribute. Therefore if the bomb is at a position which is BRIGHT then 
it must have hit the HQ. Using the ATTR function we find that any 
BRIGHT position will give an ATTR value greater than 64, whereas 
any non-BRIGHT position will have an ATTR value less than 64. See 
line 170 in the program listing. 


:6.3 DEAD DUCKS 


DESCRIPTION 


The player has a double-barrelled shotgun and is situated 

at the bottom left of the screen. A duck is shown 

in the right hand half of the screen and the object of the 

game is to fire up into the air at a specified angle to hit the duck 
(avoiding the moon also shown). Angles may be between 45 and 85 
degrees inclusive. Scores are shown on the screen. 


METHOD 


1. Initialize variables 
a) Set up moon graphic symbols (A,B,C) 


and duck graphic symbols (DE,F,G,H,I,J) (10-80) 

b) Set scores to zero. (90) 

2. Forgo number g from 1 to 5 (100) 
8) Clear and redraw screen with duck and moon at 

random positions (d,m) 110-170) 

b) For barrel number b from 1 to 2 (180) 

(i) Display barrel number b (190) 
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(ii) Enter angle of fire a (190) 
(iii) If angle a is invalid then (200) 
A) Message and reenter 
B) Go to (iii) 
(iv) Display angle a (210) 
(v) Plot path of bullet, For each bullet 
position (x,y): (220-230) 
A) Plot bullet and sound (230-235) 


B) If bullet hits moon then 
(1) Add 1 to moon hits (hm) and display (260) 
(П) Drop moon out of sky with sound (270) 
(Ш) Go to Il (c/ below (275) 
C) If bullet hits duck 
(I) If a glance hit then /a/ display 
OUCH (280-290) 


(b) sound (290) 
(с) go to (vii) 
(II) (DIRECT HIT) (a) Display DEAD (300) 
(b) Funeral sound (300) 
(c) Increment and 
display shots (310) 
(d) Press 
ENTER (310 and 58500) 
(е) Go to (c) 
D) Repeat to (v) : (242) 
(vi) Display MISS » (245) 
(vii) Increment and display shots s (295) 
(viii) Repeat to 2(b) (297) 
c) Repeat to 2 (320) 
3. Епа message with score (340) 
4. Stop (350) 


VARIABLES 


c,d,i = general purpose counters 

a$ = user defined graphic (А — -J) 

x = binary pattern for user graphic / x-axis position of bullet 
hd = number of ducks hit 

hm = number of moons hit 

s — number of shots 

go number (1-5) 

column position of start of duck 

column position of moon 

barrel number (1-2) 


оса 
ІІІ 
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a = angle of fire 

y = y-axis position of bullet 

lin, col = line and column position of bullet corresponding 
to (y,x) 

z = counter used to drop moon out of sky 

25 = dummy variable 


SCREEN LAYOUT 





SUBROUTINES 
SR500: Press ENTER 


PROGRAM LISTING 


1@ FOR с=1 TO 10 

28 READ аф 

30 FOR d-à TO 7? 

40 READ x: POKE USR аф+а, > 

Sa NEXT d 

50 NEXT c 

70 DATA "H'",1,.,6,14,25,280,58,5080 
,120,"B^",120,1280,245,248,248,248 
120, iga,"C",1248,60,50,25,28,14, 
Б, 

за DATA "D",80,80,0,15,15,8,0,8 
"E",50,108,124,252,254,255,255,2 
55, FB, 20.,0,0.0,240,255,255,"G" 
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‚@,@.@,@а,а,й,‚,г4аа,‚гвв."н",@,‚,й,й,в 
з18,38,64,128,"І",1,1,3,7,Ғ7,3,3, 
1,"J0",255,255,255,254,2B52,248,22 
4,125 

32 LET hd 


=@: LET hmzü: LET s=8 


1182 CLS :.PRPER 1: INK 7: BORDE 
В,7, POR і-й TO гё: PRINT TAB 31 


і МЕХТ 

120° LET а= INT (AND4164+12): LET 
d2=e2ed 

138 LET m=INT iRMDs74121: LET т 
Ё=@+{й 


14@ PRINT AT 8,8; "Ваггеі"° FLAS 
H 1; “Anglez? "> FLASH а; ат 8,25; 
hd;" ducks"; AT i,25;hm; = ifnoons"; 


HT 2,25;5;" shots" 

158 PRINT BRIGHT 1; ТЫК 4;HT i. 
m; “AVAT 2,.,m; BU AT a.i; "pr 

16@ PRINT ІНК 3;AT 21,8; e 


SSS eee 

170 PRINT BRIGHT 1; INK Б; AT 28 
:4;)"°DEFPGH"; AT 21.d; "IN: THUERSE 

1; CHR$ (94451; INUERSE @; "uu" 

188 FOR b=1 TO 2 

190 PRINT AT @,6;6; FLASH 1; AT 
1.8; “Angles? ": INPUT “Enter ang 
ге af Ғіге:“;а 

208 LET a-INT a: IF а:45 OR а>8 
Б THEN INPUT taj” іс пої between 
45 апа BS." "Reenter angle: “hia 

GO TO 200 

210 PRINT HT 1,8; “Angles"j4 

вай FOR i-a TO 188 

аза LET X-INT (@.8564i¢(58-ai:: 
LET fzixzi(l1ü8-i1: LET uzIMT ігғжй 
a07}: PLOT х,у 

235 ВЕЕР @.1,f +188 

240 LET ііг-21-ІМТ ім/8): LET c 
GLSINT іх/8): IF ATTR ilin,.coll: 
54 THEN 50 TO 258 


545 PRINT HT 28,d-4; "Miss": GO 


258 IF Lin»s3 THEN GO TO 250 
260 LET һт=мп+1: PRINT AT 1,25; 


270 FOR zzi TO 18: PRINT INK 4; 
AT zami” “GAT z+i,m; "A", AT тәв,п 
"BY SAT Z42,m; "C": BEEP @.1,1-z 


275 GO TO 318 

280 IF coled AND colide4 THEN G 
а TO зай 

298 PRINT HT 28,d-4;"Ouch";: БЕ 
ЕР .5,5: BEEP .5.3 

ВӘБ LET ==s+1: PRINT AT 2,25; 
297 NEXT b 

298 GO TO зай 


ім 
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зай LET hdzhdsi: PRINT AT й,2 
PRINT HT 28,d-4; "DEAD": BE 
1.-18: BEEP 1,-10: BEEP .5,-і 
ВЕЕР 1,-ій 
310 LET szs4i: PRINT AT 2,2 
ca SUB Sea 
328 НЕХТ 4 
340 PRINT FLASH 1;AT 12,11; "The 
end"; AT 12,3; "You killed ";hd;" 
ducks" 
358 STOP 
500 INPUT "Press ENTER to conti 
nue “;2% 
510 RETURN 


h 


“п, 


ІЛ 
т 


(Note: The characters A,B,C,DE,EG,H,I and J variously distributed 
over lines 150, 170 and 270 must be entered in graphics mode (G 
cursor).) 


NOTES 


1. The path of the bullet is plotted using 
= INT (0.056*i*(90—a) 
and y = INT (i*(100—i)*0.07) with i from 1 to 100 
The x equation is chosen so that when a=45 then x is almost 255 (i.e. 
far right of screen) when i is 100. Similarly the y equation is chosen so 
that the bullet is highest (y approximately — 175) when i is at its 
midpoint, i.e. 50. 


2. The ATTR function is used to detect whether the bullet hits 
anything useful (i.e. moon or duck) in the same way as in the 
Headquarters program. Both the moon and the duck are drawn 
BRIGHTIy. 
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DICE GAMES 





7.1 HIGHER-LOWER 


‘DESCRIPTION 


In general, dice games do not require very much skill, apart from 
awareness of simple probability theory. Іп Higher-Lower, a die is thrown 
and the player has to guess whether the next throw is going to produce 
a higher or lower number. The player places a bet on each attempt, and 
if the guess is correct the return is double the bet (otherwise the bet is 
lost). $50 is allocated as starting money and the game ends when 
either the player runs out of money or reaches $500. In the latter case, 
the program shows how many attempts it took. The “house” always 
wins when a die value repeats since the player is not allowed to bet on 
the same value reappearing. 


METHOD 
1. Initialize screen and variables 
a) Set screen colors (10) 
b) Print titles (25, 65, 70) 
c) Set initial money held (m) to 50 and display (30) 
d) Set up array of die patterns (d$) (40-50) 
e) Set no. of turns (t) to Ø (ББ) 
f) Display die with random value (п) (55-60 and $58600) 
2. Player's go 
a) Set old die value (о) to n (75) 
b) Clear message lines (SR550) 
c) Enter bet(b) (80) 
d) If bet invalid then (90-100) 
(i) Message and reenter 
(ii) Go to (d) 
e) Change money held (m) by —b (110 and SR750) 
f) Display bet 
g) Enter whether higher or lower (b$) (140) 
h) If b$ invalid then (150-155) 
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(i) Message and reenter 


(ii) Go to (h) 
i) Display higher/lower (160-170) 
j) "Roll" die to random value (n) (SR600) 
k) Increment number of turns (t) (190) 
1) If bet correct then (200-215) 
(i) Message and sound (225) 
(4) Change money held (m) by 225 (220, 230 and SR750) 
(iii) If money equals or exceeds 500 then (230) 
A) Message and sound 
B) Go to 3 4 
т) If bet incorrect then (240) 


(i) Message and sound 
(ii) If no money left then 
A) Message and sound 


B) Go to 3 

n) Enter value z$ . (250) 
о) If z$ = 0 then 

(i) Message showing money left (m) (260) 

(ii) Go to 3 
p) Go back to 2 (250) 
End 
a) Rerun or stop (300-310) 


SCREEN LAYOUT 
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MONEY HELD: $108 


YOUR вет: [k30 | ON 


YOU HAVE UON $608 
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VARIABLES 
m = money held (initially = 59) 
d$ = holds die patterns 
i, j = general purpose counters 


t= number of turns so far 

19, c9 = line and column position at which dice displayed 
(SR650) 

— current value of die 

о = old value of die 

b = amount bet 

b$ = holds | (lower) or h (higher) 

h$ = holds “lower” or "higher", depending оп b$ 

hibet — true if h$ contains “higher” 

hidie = true if die is higher than previous (іе. n >o) 

incm = amount by which money held is to be changed 

z$ = dummy value 

m1 = new value of m after incrementing by incm 


> 
| 


ROUTINES 


5Н550 = clears message areas on screen 

SR600 = rolls die to value n. Entered at line 610 when setting 
up the initial die value at the start. Uses SR650 

SR650 = displays die, value n, at position I9, c9 

SR759 = changes ‘money held’ value on screen by incm 


PROGRAM LISTING 


10 BORDER 7: PAPER 7: INK 8: F 
LASH е: ELS f 

ге PRINT HT @,4;"H I G H E R - 
L OQ uU E R" 

Зӣ LET m=5@: PRINT AT 2,9; “HON 
EY HELD:15";m 

42 DIM d$i?,2): FOR isl TO 7: 


"Sa DATA " " 1 | 
4 


55 LET t=: LET (9-5: LET с9=1 
2: GO SUB 510 B 
68 PLOT 95,136: DRAW 57,0: DRA 
ы Q,-57: DRAW -57,0: DRAH BSF | 
65 PRINT AT 14,3; “YOUR BET: $ 
ON " 


73 


Creative Games for the Timex Sinclair 2068 


74 


70 PLOT 111,64: one 33,8: BRA 
и @,-G: DRAW 233, е: рған 2,8: PL 
OT 185,64: DRAW 49, 9: DRAW а, -9: 
DRRU 149,0: DRAW 8,9 

75 LET о=п: GO SUB 550 К 

ныд "Enter amount to bet 


ЭЙ IF Ь‹1 OR b: INT b THEN a 
UT "£ notes Only - reenter: %"; b: 
GO TO 98 
100 IF bəm THEM INPUT ("You don 
t have 277 b;" = reenter: %%);Ы: 


105 IF bəm THEN PRINT AT 16,5; 
An ali-or-nothing bet!" 

11@ LET incm=-b: GO SUB 750 

120 PRINT AT 14.15;6 

148 INPUT "Higher or lower? the 
Lic"; LINE b 

150 IF ba<3"h" AND b$<>"L“ THEN 
INPUT “Reenter thz)“; LINE b$: 


155 IF íbáz"h" AHD oz6) OR ib$= 
"L" AND ozi) THEN INPUT "Don't b 
е Silly! Reenter theti:"; LINE 


b$ 

i68 LET h$=“lower “: LET hibet= 
@: IF ЬФ="Һ" THEN LET hğ="higherf 
>: LET hibetzi 

178 PRINT AT 14,23; FLASH 1;Һ% 
188 со SUB бәз 

198 LET 1=1+1 

2090 LET hidie=(n+0}-in=0} 

215 IF hidie<+hibet THEN GO TG 


220 LET incm=2eb 
225 PRINT AT 18,5; "YOU HAVE WON 
а ninem BEEP @.г.2@: BEEP @,5, 


238 GO SUB 75@: IF m»z580 THEN 
PRINT AT 20,8; “You have broken t 
he bank in “j;t3" turns": BEEF 
1,25: ВЕЕР 1.5,5: 50 TO 3900 

235 50 TO 250 


240 PRINT AT 18,18;"You are шго 
ng": BEEP 1,-15: IF m=@ THEN PRI 
NT AT 20,3;"That's it. Мо money 

lert!": BEEP 1,-5: BEEP 1.5,-15 
: GO TO 308 

250 INPUT "Press ENTER for anot 
her bet, or Ø to stop"; LINE 2%: 

IF z%<3"@" THEN GO TO 75 

260 PRINT AT 28,5;"You stopped 
with $$"; 

3@@ INPUT "Press 1 to repeat, 9 

to UNES LINE 2%: IF z$-"1" TH 


318 STOP 
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2598 PRINT. Т 14,15;" “SAT 14, 
560 FOR і=16 TO 18 STEP 2: PRIN 
T AT 1,@; 

": NEXT i 
570 RETURN 


бәй INPUT "Press ENTER to roii 
die"; LINE z$ 

6@5 LET nz7: GO SUB 86540: FOR іш 
1 TO 18: BEEP .1,i#2: NEXT 

ESO LET nzINT (RND2#6) +1: ců sug 
620 RETURN 

650 PHPER 2: INK 7 

6560 PRINT AT i3,c8 Ж 
570. FOR і=1 TO 3: ÈRINT AT 13+} 


*2-1,Cc9;" ";: FOR j=3ži-2 TO 3zi 
: PRINT d$in,j!; ; 4; : NEXT j: PR 
INT HT i84is2, с; " "1 NEXT 


і 

5680 PAPER 7: INK 0: RETURN 

758 LET т1і=т+іпст 

768 FOR i=m TO mi STEP 1-2sími: 


т) 
SIEUT AT 2,21;i;"  ": ВЕЕР 


.@1 
?8@ NEXT i 
792 LET m=mi: RETURN 


(Note: Enter the contents of the strings at line 50 using GRAPHICS 
mode with Ш and SPACE—do not use INV. VIDEO as this produces 
extraneous characters.) 


NOTES 


1. Many of the features of Higher-Lower can be directly used in 
other dice games, and for this purpose several general subroutines are 
used. In particular, SR650 may easily be transferred to other programs 
—it draws a 7 x 7 die.with its top left hand corner at line 19, column 
c9, with value n. It uses array d$ and therefore lines 40 and 50 which 
.set up these die patterns would also be needed. The seventh value 
allows for a blank die. 


2. Most dice games are simple in concept, but can be made 
much more interesting by thoughtful input validation (e.g. line 155, 
making sure the player does not bet ‘’Higher’’ when the die shows а 
6); by suitable messages (e.g. line 105); and by good screen layout. 


3. You must use lower case for this game (as well as for the 
other two games in this chapter). 
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7.2 TRIPLE 


DESCRIPTION 


The player starts with $50 and bets on the occurrence of a number on 
three dice. If the chosen number comes up on one die, the player 
recovers the bet, if it appears on two dice, the player wins at two-to-one 
odds, and if it is on all three dice, the win is at three-to-one. The game 
ends when the player runs out of money or if the win is more than 


$500. 


METHOD 
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1. 


Initialize screen and variables 
a) Screen colors 
b) Print titles 
с) Set money (т) to 50 and display 
d) Set up array of dice patterns (d$) 
e) Draw dice shapes 
f) Set turns (t) to 0 
Player's go 
a) Clear message lines 
b) Display dice blank 
c) Add 1 to turns (t) and display 
d) Set matches (ms) to 0 
е) Enter bet amount (b) 
f) If b invalid then 
() Message and reenter 
(ii) Go to (f) 
g) Display bet (b) 
h) Change money held (m) by —b 
i) Enter bet number (bn) 
j) If bn invalid then 
() Message and reenter 
(ii) Go to (j) 
k) Display bet number (bn) 
1) ‘Roll’ dice to values n(1),n(2),n(3) 
m) For each die 
(i) If die = bet number (bn) then 
A) Add 1 to matches (ms) 
B) Message (MATCH) 
(ii) Repeat to (m) 
n) If no matches (ms — 0) then 


(40-50) 
(70,90,100) 
(110) 


(120) 
(130) 
(140) 
(140) 
(150) 
(160-170) 


(180) 
(180 and.SR700) 
(190) 
(200) 


(210) 
(220 апа 58500) 
(230) 
(240) 


(260) 
(270) 


(i) Message (NO MATCHES) 

(ii) If no money left (m = 0) then 
A) Message (OUT OF MONEY) 
B) Go to (3) 

(iii) Go to (p) 

о) (Matches) 
(i) Message showing winnings 
(ii) Change money held (m) by b*ms 


(iii) If money (m) equals or exceeds $500 then 


A) Message (BROKE BANK) 
B) Go to (3) 
p) Enter value z$ 
а) If z$ = 0 then 
(i) Message showing money left (m) 
(ii) Go to (3) 
r) Go back to (2) 
3. End 
a) Rerun or stop 


SCREEN LAYOUT 


MONEY HELD: $46 


MATCH 


BET NO.2: ON 
1 matched. You win $18 


VARIABLES 


m = money held 
— holds dice patterns 
i,j,k = general purpose counter 
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(275) 
(280) 
(SR700) 
(290) 
(300) 
(310) 
(300) 
(320-330) 
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array n = holds values of three dice 

t = number of turns so far 

n = value of dice displayed by SR500 

b = amount bet 

incm = amount by which money held is to be changed 

bn = number bet upon 

z$ = dummy value 

ms = number of matches between bn and array d 

19, c9 = line and column position at which a die is displayed 
(SR559) 

m1 = new value of m after incrementing by incm 


ROUTINES 


SR500 = calls SR550 three times, with dice по. = 1,2,3 
respectively 

SR550 displays dice with random value, or set value (n) if n not 
equal to 0 

SR600 = draws edge of dice 

SR700 — changes value of money held by incm 


PROGRAM LISTING 


За PRINT AT е, DD ЗЕ 
Нер КЕТ m=50: PRINT AT 3,8; "HON 


Si: FOR isi TO F: 
x 


ға PLOT 23,128: GO SUB 588: Fi 
©, 126: 50 SUB S88: PLOT 18: 
122: GO SUB ea 
за PRINT AT 17,5: "BET NO. ЕЗ 
DH" 
әй PLOT 127,40: рған vg x DRA 
i d,-2: DRAH 33,8: DRAH ой, 
106 PLOT 287,48: DRAN 9,8: наи 
-8: DRAH -а .0: DRAH 2,9 
тіз LET t=2 n" 
120 PRINT ae i? Е: ағады ЕНТ XT, 
Бе; пт 14, 


i 
5 


! LET п=т: GO SUB 500 NS 
LET tst: PRINT ЯТ: Fla: 
LET ms =3 
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Ene NET "Enter amount 
150 IF bel GR b4 INT b 
UT “$ notes only - reent 
: GO TO 168 5 

Іти IF bọm THEN INPUT i'"vYaou don 
"t have $";b;" - reenter: ф°1;Ь: 
бп TO 168 

1ё@ PRINT AT 17,17;Ь: LET inems 
-b: GO SUB тай 

198 INPUT “Enter number on whic 
h ta bet: “ibn 

208 IF bn:»IMT bn ОБ Ьп OR bn 
+5 THEN INPUT “Ho such number - 


= 
dice"; LINE z$: LET n=@: GO БИБ 


+ PRINT FL 
TCH": BEEP 
n 268 
250 NEXT i 
265 IF ms: THEN GO TO ғаз 
a 
i 
i 





еғе PRINT AT 123,.11;"Ha2 а 

„ІР mae THEN PRINT AT 28 
"That? it! Ма money Lert 

Бб та 32d 

275 Go TO зай 

ЕЗӘ PRINT AT i3,4;mz;" matched. 
You шіп $":bxms: LET incm=bems 
GO SUB уай 






вә IF бзшбӘй THEN PRINT AT 28, 
8; INEKE 2; "You have broken the ba 
nk ID oil turns"; 50 328 

aan PAUSE lög INPUT “Pres ENT 
ER for another bet or à ta zztop 
"; LINE z$: IF Z%::"@" THEN GO T 


п ісе 
З1@ PRINT AT 28.5; INE 2; ‘you s 
tapped with “jm 
Gea PAUSE 150: INPUT "Pre 
а repeat, @ to stop"; LINE 


Баш LET £926: LET caz3: LET isi 
GO SUB 550 

БІЙ LET ise: LET £3=13: бб SUB 

во 


530 RETURN 

S30 LET niil INT IRHDseO:41 
Bee IF nid THEN LET hii? =f 
570 PAPER 2: INK 

560 PRINT AT 19,09; = Е 
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590 FOR k=1 TO 3: PRINT ЯТ LO+k 
#2-1,¢9;" "3: FOR jz3sk-2 TO Bek 
: PRINT d$&íntil,ji;" "j: NEXT у: 
PRINT ЯТ 1Әғкжр,с9; Е: 
ЕХТ К 
592 IF n=8 THEE BEER 485,10 

Р K R 


8 FOR ism To" mi STEP 1-24 (mi< 
"720, PRINT AT 3,21;i;" ": BEEP 


.81 
730 NEXT i . 
740 LET m=mi: RETURN 


(Note: Enter the contents of the strings at line 50 using GRAPHICS 
mode with Ш and SPACE—do not use INV. VIDEO as this produces 
extraneous characters.) 


NOTES 


1. Subroutine 550 is used in two ways in the program: to 
generate and display a random dice value, or to display a blank die, 
for example at the start of each go. Value n is used to indicate which 
is required: at line 220 the routine is called (via SR500) with п--0, and 
n=7 when 58500 is called at line 130 and 58550 then displays the 
dice pattern corresponding to 7 in the DATA statements of line 50 i.e. 

a blank die is displayed. 


7.3 PLAYING THE NUMBERS 


DESCRIPTION 


In this game two dice аге used and the player and the Т52068 are 
opponents. On each attempt the player (ог 752068) has to guess three 
features of the two dice to be thrown, namely whether the sum will be 
odd, what the sum will be, and what the dice values will be. Correct 
answers to these three questions give scores of one, two, and three 
respectively. The first player to reach eleven wins. Тһе TS2068 does 
not cheat by looking ahead, and just to be generous, the user always 
starts first. 


METHOD 


1. Initialize screen and variables 
8) Set screen colors (10) 
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b) Set up array of dice pattern d$ 
c) Print titles and draw dice 


Player’s go 


a) Set players go to 1 
b) Enter whether odd or even 
c) If invalid then 

(i) Message and reenter 


(ii) Go toc 


d) Display odd/even 

e) Enter sum of dice (sb) 

f) If invalid or inconsistent then 
(i) Message and reenter 


(i) Go to f 


д) Display sum sb 
' h) Enter dice numbers b1,b2 
i) If invalid or inconsistent then 
(i) Message and reenter 


(ii) Go to i 


j) Display dice numbers b1,b2 
К) ‘Roll’ the dice, giving n1 and n2 
I) Score the bet against n1 and n2 
m) Add score to player's score, ps 
n) If ps greater than or equal to 11 then 
(i) Message declaring player the winner 


(ii) Go to 4 


о) Press ENTER and clear screen 


7520685 go 


a) Set players go to 0 
b) Generate numbers b1 and b2 at random 
c) Calculate sum of b1 and b2 (sb) 
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(40-50) 
(60-95) 


(100) 
(110) 
(120) 


(130 -140) 
(150) 
(160-180) 


(190) 
(200) 
(210-220) 


(230) 
(SR500) 
(SR700) 

(250) 

(260) 


(SR850) 


d) Display Т 520685 bet: whether sb odd even, sb itself 


and b1 and b2 
e) Roll the dice giving n1 and n2 
f) Score the bet against n1 and n2 
g) Add score to TS2068’s score, ss 
h) If ss greater than or equal to 11 then 
(i) Message declaring TS2068 the winner 


(ii) Go to 4 


i) Press ENTER and clear screen 
j) Go back to (2) 


End 
a) Sound 


b) Rerun or stop 


(290-310) 
(58500) 
(58700) 

(330) 
(340) 


(58850) 
(350) 


(360) 
(380-390) 
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SCREEN LAYOUT 





VARIABLES 
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d$ = holds dice patterns 

ij = general purpose counters 

n1 = value displayed on first die 

n2 = value displayed on second die 

ps = player's score 

ss — TS2068's score 

x$ = ''o'"/"e" - player's entry of odd/even 

evenbet — true if bet is even 

evencalc — true if sum of two numbers chosen by player is 
even 

evensum = true if dice give even sum 

e$ = "even" /"'odd" 

sb — sum bet 

b1, b2 — dice numbers bet 

Score — score attained by one bet 

playersgo — true when it is the player's go 

z$ = dummy value 

n = dice value parameter used by SR650 

I9, c9 = line of column position at which dice displayed by 
SR650 

| = line position 

с = column position 


ll 


Chapter Seven 


ROUTINES 


SR450 = draws lines around the edges of dice 

SR500 = rolls dice to numbers n1 and n2. Uses SR 600 
SR600 = sets positions to display dice and calls 586650 
SR650 = displays a die, value n, at position I9, c9 
SR700 — scores a bet 

SR850 = clears bet lines and dice 


PROGRAM LISTING 


ій INK @: PAPER 7: BORDER 7: F 
LASH ð: BRIGHT 80: CLS 

20 FOR i=@ TO = READ x: PORE 
USR “G'4+i,x: МЕХ 

32 DATA 17а, Ss. 172, 85,178,85,1 


285 
42 DIM d£í(í?7,8!: FOR і=1 TO 7: 
REAC 4%іі!: NEXT i 


ab dated ftrt 


INVERSE 1; "Hm 
ELS ; INVERSE @; AT 
2 LEER STET ST 2,12; OVER i;" 
Sac ud GUER @; AT 4,7; "T88088: а 
Бізчегій" 
70 PLOT 55,128: GO SUB 450 
8@ PLOT 143,120: cO SUB 450 
90 LET ni=7: LET п2=7:: GO SUB 
6@@: LET ps=@: LET ss=@: DEF FN 
df) =INT (RHDx51-41 
95 GO SUB 850 
100 PRINT HT 15,12; “YOUR ВЕТ": 
LET playersgo=i 
77 DUE "Odd or even sum? for 
е +» x . 
120 IF x5£:»"o" AND x$#i>"e" THEN 
INPUT "Reenter iozei“jx$: GO TO 
130 LET evenbet=8: LET еф-”о4а" 
: IF xg="e" THEN LET evenbetzi: 
LET e£z"even" 
148 PRINT AT 17,3; "The sum is " 


es 

*15@ INPUT “5um=";isb 

1880 IF 5Ь+>ЇМТ sb OR 5Ь+2 OR sb 
>12 THEN INPUT "Impossibile. Ree 
nter (2-12!:";5Ь: GO TO 150 
E ris LET evencalc=({sb=s24INT ісь/ 
c 

182 IF evenbet«sevencalc THEN I 
NPUT (sb;" is not ";e$;".  Reent 
€r:");sb: 50 TO 168 
EL. PRINT AT 18,3; "The sum equa 
ред tNPUT "Enter dice nos: {13 =" 
 b1;" (2Biz";b2 
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E18 IF bił: INT bi OR ьг<>1ІМТ be 
OR Ь1:1 OR b2c1 OR Һ126 OR bers 
THEN INPUT "Impossible. Reente 
ea ae i2} ="; be: GO TO 218 
ей IF bi+be<osb THEN INPUT ibi 
"+ “i b2; нун ББ; Reenter tiic" 
i;bij" i2)z";b2: GO TO 218 
238 PRINT AT 19,3; "The numbers 
are ";b1;" & "jb 
240 ба SUB вай: co SUB таа 
250 LET ps=ps+scare 
$3511 THEN PRINT AT 4,1 
4; FLASH i;Ps;HT 21,7; "Yol are t 





he uinner!i": GO TO 368 
265 GO SUB 258 d 
270 PRINT AT 15,13; Hf BET": LE 


в 
T playersga= =@ 
2ай LET Ь1=РЫ dil: LET be=FN di 


) 

290 LET =Ь=Ь1+Ь2: LET evenbet-í 
sbzzsINT ісіь/д)) 

300 LET e&-"odd": IF evenbet TH 
EN LET e$z'"even" 
З1@ PRINT HT 17,3;" The sum is " 
E$; AT 18,23;"The sum equals “jsb 
AT, (19,3; "The numbers are “jbl; 


Soa eo SUB БӘЙ: 260 SUB тва 


4; FLAS 
winner’: 
258 Go To) as қ 
350 BEEF .5,28: BEEP .5,18: BEE 
P 2,8 





370 PAUSE 259 

BEG INPUT "Enter 1 ta repeat, @ 

із stop’; LINE z$: IF z$z"i" ТН 
ЕМ RUM 


ава DRAW SF, ‚б: D 

-E7,8: DRAH 8,57: RETURH 
sag INPUT “Press ENTER to ri 
dice"; LINE г% 

Si LET nizFH di]: LET nz-FM di 
зг GO SUB Бай 

S248 RETURN 

Sga LET nzni: LET 19=7: LET c= 
7: GO SUB 55a 

618 LET п=п2: LET (2-18: GO SUB 
65a 

620 RETURN 

55 PAPER 2: ІМ 
BEE PRINT AT үз 


RAG 2.-57: DRAH 
a 


K 7 
cá à 


ға FOR іші то 3: PRINT AT Loti 
#2-1,¢059;" “j: FOR ісшЗ3%жі-В TO 3si 
: PRINT dih, jIj" "i: NEXT Jj: PR 
INT HT i84is2,CB;" ": HEXT 
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63@ PAPER 7: INK 6: RETURN 

700 LET гіспізгіг: LET score=@ 
ee LET evensumzísdz2xINT {54/2 
720 IF evensum<>evenbet THEN PR 
pa 17,26; INK 2; "МО": GO TO 


730 LET Scorezi: PRINT AT 17,26 
; INK 4; "YES" 

740 IF sdi»sb THEN PRINT AT 18, 
26; ІМК 2;"NO": GO TO 780 

750 LET score=score+2: PRINT AT 

18,26; INK 4; "YES" 

7680 IF (nl=bl AND n2zb2) OR {пі 
zb2 AND п2=61) THEN PRINT AT 19, 
26; INK 4; "ҮЕ5": LET scoresscore 


772 PRINT ЯТ 19, 26; INK 2; "мо" 
788 PRINT AT 20,25; "SCORE:";sco 


ге 

790 LET 1=4: LET с=14:: LET s=s 

5: IF playersgo THEN LET c=25: L 
н 


800 FOR і=5 TO s4score: PRINT 
T i,c;i: BEEP .1,20: NEXT i 


a50 INPUT "Press ENTER: “; LINE 
2%: FOR 1415 TO 20: PRINT AT 1,8 
ғ 


. "i NEXT L 
868 LET 13=7: LET c8z7: LET nz? 
: GO SUB 650: LET с8-18: GO SUB 


658 
8780 RETURN 


(Note: Enter the contents of the strings at line 50 using GRAPHICS 
mode with Шапа SPACE—do not use INV. VIDEO as this produces 
extraneous characters.) 


NOTES 


1. Much of the validation built in to the “player's go’ section 
of the program is necessary because of the order in which the three 
questions about the dice are asked. It could be made much simpler if 
just the two dice numbers were asked for and the program calculated 
whether the sum was odd or even, and what the sum was, as it does for 
its own turn. However, without validation some rather silly responses are 
possible. 


2. The use of several logical variables, such as evensum and 
playersgo, may seem longwinded but they do aid the clarity and 
readibility of what can be a somewhat tortuous set of coding. 
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CARD GAMES 





8.1 INBETWEEN 


DESCRIPTION 


Twenty cards are shown on the screen, face down. The first two cards 
are then revealed, and the player then has to bet whether or not the 
third card's value will lie in between the values of the first two cards. If 
correct, the player wins at 2 to 1 odds, otherwise the bet is lost. The 
game continues with betting whether card 4 will be between card 3 
and card 2, and so on. 


Note that the suits of the cards are irrelevant, they are shown for realism 
but do not contribute to the game. Ace is low and a card 

is considered to lie between two other cards if its value is in the 
inclusive range. Ten is shown as the letter T in this and subsequent 
card games. 


The player starts with $50 and the game ends when the player either 
exceeds $500 or has no money left. 


METHOD 
1. Initialize screen and variables 
a) Set screen colors (10) 
b) Read graphics for hearts, clubs, diamonds and 
spades (20-30) 
c) Initialize s$ to contain suit symbols and v$ values (40) 
d) Put suit graphics into array 5 (60) 
е) Put card numbers 1-52 into array с (70) 
f) Shuffle array c (80) 
g) Set corresponding card values in array v and suits in 
array t (85) 
h) Print titles (100) 
i) Set money held (т) to 50, and display (100) 
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j) Display twenty cards, face down 
К) Set third card (cd3) to 3 
1) Reveal first two cards 
Player's go 
a) Clear message lines 
b) Enter whether inbetween (y/n) 
c) If invalid entry then 
(i) Message and reenter . 
(ii) Go to (c) 
d) Enter amount of bet (b) 
e) If invalid then 
() Message and reenter 
(ii) Go to (e) 
f) Display bet 
д) Decrease money held by bet 
h) Press ENTER 
i) Display card numbers cd3 face up 


(105-135) 
(140) 
(150 and SR500) 


(190) 
(200-210) 
(220) 


(240) 
(250,260) 


(280) 
(290 апа 58650) 
(300) 


(310 and 58600 and 500) 


j) Calculate whether card's value (v(cd3)} lies 


(320-349) 


between values of two previous cards, cd3— 1 and cd3—2 


k) If result corresponds with bet then (350) 
() Congratulatory message and sound; display 
winnings (360) 
(ii) Add amount 2*b to money held (370 and SR650) 
(iii) If money m equals or exceeds $500 then (380) 
A) Message BROKEN BANK 
B) Go to 3 
(iv) Go to (m) (390) 
1) (WRONG) | 
(i) Message NO MORE CARDS and show money left (400) 
(ii) Go to 3 | (410) 
А) Message МО MONEY LEFT 
B) Go to3 
т) Add 1 to card counter саз (420) 
n) If counter cd3 exceeds 20 then (420) 
(i) Message NO MORE CARDS and show money left 
(ii) Go to 3 
o) Enter value z$ — (425) 
p) If z$ not equal to 0 then go back to 2 
q) Message showing money left (m) (430) 
End 
a) Rerun or stop (440-450) 


Chapter Eight 
SCREEN LAYOUT 


ANBETUEENM 


MONEY HELD: $3008 


Pal Pu Р ЛҮҮ! 


ЕЧ Fl Pal Ed LLL] 


Hill the value of CARD 16 be be- 
tween CARD 14 and CARD 157 


BET 8188 ON ND 
CORRECT! ‘You win #228 





VARIABLES 


ij = general purpose counters 

x$ — graphic character being initialized (suit symbol) 

x = binary pattern used for setting up graphic 

56 = suit initials Н, C, D, 5 

v$ = values of cards A, 2, 3, ..., 9, T, J, О, К 

array c = holds the numbers 1-52 representing individual cards 

array t = holds the suit numbers of the cards in array c 

array v = holds the value numbers of the cards in array c 

array s = holds the codes of the graphic characters for the 
suits . 

г = a random number (1-52) used in shuffling the cards 

2,25 = dummy values 

m = money held 

cd3 = counter showing position of card currently bet upon 
(3-20) 

a$ = user's answer to question “Inbetween?” 

betin = true if user's bets on inbetween 

b = amount of bet in $ 

w$ = YES/NO corresponding to a$ 

incm = amount by which money held is to be changed 
(by $8650) 

n = parameter to SR600 (card sequence number) 

max = larger value of the two cards preceding card саз 
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min = smaller value of the two cards preceding card cd3 

in = true if the card does lie between the two preceding 
cards 

vn = holds value of the card currently being displayed by 
SRb500 

sn = holds suit number of card currently being displayed by 
SR500 

I1, с1 = line and column position of card number n on screen 

х1 = units part of number n 

x10 — tens part of number n 

m1 = new value of m after being changed by incm 


SUBROUTINES AND FUNCTIONS 


5АЋ500 displays a card, sequence number n, at positions (11,с1) 

5А600 calculates screen position (11,c1) of card, sequence 
number n 

SR650 changes displayed value of money left by incm 


FN b = calculates larger value of two numbers, a and b 
FN s — calculates smaller value of two numbers, a and b 


PROGRAM LISTING 


18 PAPER 7: INK 8: FLASH @: EO 
HDER 7: CLS 


вә FOR іші TO 4: RERD «3: FOR 
ішй TO 7: READ x: РОКЕ USR хф, 
x: МЕХТ Jj НЕХТ i 

за DATA "HH" ,34,115,127,127,6e2; 
Bz,228,58,"C'",22,258,808,1807,127,.,107. 
S,m2,"D",8,22,852,127,52,20,25,80,"2 
'"".B,28,B52,127.,i127,127,i10807,8 

iû LET z5$2"HCD5": LET v£-"H234 
Sse?S8S3Tluk" 

50 DIM сїбдї БІН tí(521: DIM v 
ісе): DIM 5141 

Ба FOR isl TO 4: LET stiistobe 


20 FOR ісі TO 52: LET r=INT 15 
SAND +1: LET ішсіі!: LET сїїї=є 


есе "NEXT i 
за DEF FN b ia,bicasis:biebkia: 
=b}: DEF ЕМ = іа, ь) =а+ь-Р bia,b} 
iac LET m-25ü8: PRINT вт 9,11; IH 
к 1; “ІМБЕТМЕЕМ"; OVER 1; АТ 8.11; 
н INK 86; OVER @;AT 3, 
3; "MONEY HELD: | 
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1@5 РОВ i=5 ТО 11: PRINT PAPER 
4;AT i,0;TRB 31: NEXT i 

112 PRINT ЯТ 5,0;: GO SUB 55@: 
PRINT : GO SUB 556 

198 FOR і=1 TO 1e: ӘНІМ AT 5,3 
*i-2; INVERSE 1;і: NEXT 

130 FOR ізі1 ТО 2а: PRINT AT 8. 
1#3-32; INVERSE 1;i: NEXT 

135 PLOT 0,135: DRAW 247, а: DRA 
u @,-55: DRAW -247. 8: DRAW 8,55 


180 PAUSE Бай: ШЕТ 11-6: LET сі 
ті: LET n=l: GO SUB 5@8: LET ci- 
4: LET п=2: GO SUB S580 
uro FOR і=13 TO 18: PRINT AT i. 

+ 


=: NEXT i 
280 PRINT AT 135,8; "Will the val 
це of CARD ";cd3;" be be- tween 
ERRO "jCd3-2;" апа CARD “;cd3-i 
1810, ылын "Inbetween? {цуп}"; L 
220 IF E AND ağ::“n" THEN 
GO TO 21 
#238 LET Кетрин; 
cy iud "Hou much шіні you be 
250 IF bi:INT b OR b:1 THEN INF 
UT “S$ notes only. How much? $"; 
b: GO TO 2508 
26@ IF bəm THEN IHPUT ("You don 
‘t have $";b;" - reenter $"l;b: 


270 LET m "NO": IF betin THEN 
LET шф-"ҮЕ 

280 PRINTO AT 16,5; INK 3; "ВЕТ 
$";b;" ON "; FLASH 1;ш% 

233 LET incms-b: GO SUB 650 

300 INPUT "Press ENTER to turn 
over сага"; 2% 

318 LET n= ©з: GO SUB 600: GO 5 
UB 508 

er LET max=FN bivítcd3-1),ví(cd3 
2T LET minzFN sivi(cd3-1) ,vicd3 
340 LET insztí(ivicd3)»zmin) AND í 
vtcda3!) «2max!? 

358 IF NOT (in=betin} THEM GO T 


D 430 

360 BEEP .5,25: BEEP .5,15: PRI 
NT AT 18,5; INK 2; "CORRECT! You 
win 4"; 2eb 

370 LET incmzasb: GO SUB 658 
383 IF m>=5S8@ THEN PRINT HT 28, 
@; "You have broken the bank in ^" 
рё-саз;" turns": GO ТО 448 
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зза GO TO 4га 

ЁЙ BEEF 1,-15: PRINT AT 18,4 
You аге wrong” 

412 IF m=ğ THEN PRINT AT 28.3 
INK 1; "“That‘’s it! No money L 
i": GO TO 448 
422 PAUSE 1848: LET саЗз=саз+їы: I 
Р с4ӛз>гй THEN PRINT AT 28,3; I 
2;"No more cards - you have $"; 

п 





т: GO TO 44@ 


425 INPUT “Press ENTER for anot 
her bet or 8 to stop"; LINE z$: 
IF 2Hi:"8" THEN GO TO 198 

,9; INK 1; "You s 


aiu PRINT HT zu, 

tapped with Шш"; 

440 PAUSE 168: IH 
e ta t 





MPUT "Press 1 i 
а repeat, @ а stop“; LINE үя: I 
F z&-"1" THEN RUN 

45@ STOP 

Saa PAPER 7 
natin): INK &-isn 

БІЗ PRINT ЯТ ii.ci;v$ivn);" "jA 


1141,01; " “;GHAS Sten} 
сез INK à 
538 PLOT cis8-1,176-8511: DRAH 
7,8: DRAW 8,-17: DRAH -i17,0: DR 
Ru 8.17 

Бай BEEP 1,5: RETURN 

BSG FOR іші ТО 2: PRINT PAPER 4 
Іі" Em ШШ NE NE E NE БЕ БЕ ШЕ НЕ 
": NEXT i: RETURN 

588 LET x18-INT in;10): LET xi- 
n-ia8sxi8 

505 IF х1=@ THEN LET x1@=x1ia-1: 





630 RETURN _ 
850 LET mismsincm 
560 FOR izm TO m1 STEP 1-24 imi< 


mi 

578 PRINT AT 3,281;i;" “: ВЕЕР 
-01,15 

вай NEXT i 

533 LET т=п1: RETURN 


NOTES 


1. Many of the instructions and routines included above тау 
be used in any card game program. Consider first the method by which 
the shuffled set of cards is set up. Array c holds 52 values of 1-52 
where 1 represents the ace of hearts, 2 represents the two of hearts and 
so on up to 52 representing the king of spades. Thus suits are 
organized in hearts, clubs, diamonds, spades sequence and within a 
suit the values start at ace and go up to king. The card numbers are 
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initially put into array с in sequence (line 70 above) and are then 
“shuffled.” There are several techniques of doing this, but the simplest is 
shown at line 80: each card in the ‘pack’ is swapped with another card 
in a random position. 


2. Itis not sufficient to display a card as just a number between 
1 and 52 so it is next considered how this number, e.g. 40, is 
converted to a recognizable form, e.g. A S for the ace of spades. A card 
has a specific position number or value, and a suit. Its suit is easily 
calculated since 

hearts — numbers 1-13 

clubs — numbers 14-26 

diamonds — numbers 27-39 

spades — numbers 40-52 


` i.e. given a card number c, its suit t can be found from the formula: 
t = INT ((c—1)/13) +1 
This is used in line 85 of Inbetween. Similarly the position or value of a 
card c in suit t is found by 
v = c— 13*(t— 1) 
also used in line 85 above. 


The variables v and t can then each be used as subscripts of a string: 


Take v$ as “А23456789ТУОК” (the values) 
and s$ as “НСО5” (the suits) 


and then the value of a card c is v$(v) and its suit is s$(t). It is finally 
a simple matter to use the corresponding graphic characters of H, C, 
D and S for added realism. 

For ease of use, the program calculates an array of values numbers 
(v) and an array of suit numbers (t) corresponding to the card array 
(с) so that card c(i) has value v(i) and suit t(i). 


3. Subroutine 500 is sufficiently generalized to be used in 
other card game programs—it displays a 2x2 card at a position with its 
top left hand corner at line 11, column c1. It follows the normal 
conventions to display hearts and diamonds in red, and clubs and 
spades in black, with a white background for each. 


8.2 CONCENTRATION 


DESCRIPTION 


This is the familiar game of memory. Fifty two cards are laid out face 
down in six rows. The player has to pick a pair of cards (by specifying 
the card sequence numbers shown on the back), the cards are turned 
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over and if they have the same value (e.g. Ace or 5) then they remain 
turned face up. If they are not of the same value they are turned face 
down again. The game continues until all the cards are showing face 
up. Clearly the player's memory has to be exercised in visualizing the 
values of cards previously turned up. 


METHOD 
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1. 


Initialize screen and variables 


a) Set screen colors and clear screen (10) 
b) Set ир graphics for card suits (20-30) 
с) Initialize suit (s$) and value (v$) symbols (40) 
d) Put suit graphics into array s (60) 
e) Put card numbers 1-52 into array c (70) 
f) Shuffle array c (80) 
g) Set corresponding card values and suits in arrays : 
vandt (90) 
h) Display numbered backs of cards on table (120-150) 
i) Set choices (ch) and pairs (pr) to б and display (160) 
Player's choice 
a) Clear message line (200) 
b) Enter first member of pair (p1) (200) 
с) If entry invalid then 
(i) Message and reenter (210-220) 
(ii) Go to (с) 
d) Turn over card p1 (230 and SR's600 and 500) 
e) Enter second member of pair (240) 
f) If entry invalid then (250-270) 
(i) Message and reenter 
(ii) Go to (f) 
9) Turn over card p2 (280 and SR's600 and 500) 
h) Add 1 to number of choices (ch) and display (290) 
i) If value of card p1 = value of card P2 then (300) 
(i) Message CORRECT and sound (310) 


(ii) Mark cards р1 апа p2 as chosen (set values to 0) 
(іі) Add 1 to number of pairs (pr) and display 


(ім) If pairs (pr) = 26 then (320) 
A) Message FINISHED and sound 
B) Go to 3 
(у) Go to (k) (330) 
j) (NO MATCH) (340) 


() Message NO MATCH and sound 
(ii) Wait two seconds 
(iii) Turn cards pT and p2 face down (SR800) 
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k) Press ENTER (350) 
|) Go to 2 

3. End 
a) Return or stop (360-380) 


SCREEN LAYOUT 


Gn ананы 
АЕ) 
LLLE ENES 


Deere ET 
He GR RR 
i i m 





CHOICES: 





VARIABLES 
ij — general purpose counters 
x$ — graphic character 
x — binary pattern for graphic character 


$$ = suit initials, H,C,D,S 
v$ = values of cards A,2,3,...,9, T, J, Q,K 
array c — holds the numbers 1-52 representing individual cards 


array t — holds the suit numbers of the cards in array c 

array v — holds the value numbers of the cards in array c 

array s — holds the codes of the graphic characters for the 
suits 


т = a random number (1-52) used in shuffling the cards 
z,s$ = dummy values 

ch = number of choices (of pairs) made 

pr = number of correct pairs chosen 

р1 = first member of a pair, as a card sequence number 
p2 = second member of a pair 


n = parameter to SR600 - a card sequence number 
vn = value number of a card (іп SRb00) 
sn = suit number of a card (in $8500) 
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x1 = units part of number n 
x10 = tens part of a number п 
11,с1 = line and column position of a card 


SUBROUTINES 


5$В5@@ displays a card, sequence number n, at position (11,с1) 

SR600 calculates screen position (I1,c1) of card, sequence 
number n 

SR800 displays the numbered back of a card, sequence 
number n 


PROGRAM LISTING 


18 PRPER 7: INK 8: FLASI 
RDER 7: 


zou 
- ox Ju 
Cr Poe J Fe C D Ea 
Senes > az 
. ЫИ 
гл 


лот 





2: LET ctiisi 


ed FOR is 
EsRMD!)-41: LET 
i 


-4 


E mum m ga 
т 
m 
w 
T 


iri: LET c 
Se FOR is 2 
(ісіі?-11/131-41: LET vi 

i3sit(i)-1): NEXT i 
120 PAPER 4: PRINT TAB 

ісі TO 5: FOR ісі TO 2: 
NEXT Jj: PRINT TAB 31: НЕХТ i 
138 FOR ісі TO В: PRINT " EE EH 
=: NEXT Jj: PRINT TAB 7 
1480 PAPER 7: PLOT @,175: DRAH а 

‚-151: DRAW 55,0: DRAH @.24: DRA 

и 182,0: DRAH 8,127: DRAH -247,.8 
158 FOR п=1 TO 52: 50 SUB бай: 

PRENE AT 11,с1; INVERSE 1;п: МЕХ 


n 
160 LET ЕТСЕ ore Brs@: PRINT Н 


кн: 
4и 


T 15,8; “CHOIC : 8 PAIRS: à" 
280 PRINT AT 18,8; 
"; INPUT "Enter pair: (1) =";р 
1 
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<5ІМТ рі OR р1›52 OR P 
МРОТ "Invalid - reente 
3 : GO TO 218 

ð IF vipii=@ THEN INPUT “ALre 
P08 - reenter (1) =";р1: б 


өн» 


"29 LET п=р1: GO SUB 688: GO 50 
geo INPUT " {2) =";р 


250 IF р2<>ІМТ p2 OR р2›52 OR р 
2:1 THEN INPUT "Invalid - reente 
г 2) =";р2: GO TO 250 

260 IF vip2}=s@ THEN INPUT "Rire 
adu paired - reenter (Bi=";pea: G 
o TO 250 

рта IF р1-р2 THEN INPUT “Pair m 
Ust be separate - reenter {2)";P 
В: GO TO 25а 
S c-r oral n-zpe: GO SUB 600: GO 5U 

ЖАР LET ch=cth+i: PRINT AT 16,17 


E IF уірі! іу ірг) THEN GO T2 


34 

io PRINT AT 18.8; INK 1; “Corre 
ct choice!": LET vipii=s@: LET ví 
p2)z0: LET рг=рг+1: PRINT HT 15, 
28;pr: BEEP .5,25: BEEP .5,i&5 
328 IF pr=26 THEN PRINT at 28, a 
;"YOU have finished after "thi" 
turns": BEEP .5,280: BEEP .5,25: 
BEEP-.5,28: GO TO 350 

зза GO TO 358 

340 PRINT AT 18,8; "ро not match 

“: ВЕЕР 1,-15: PAUSE 150: GO 5 

UB 8@@: LET n=pi: GO SUB 680: б 
SUB seu 

35@ INPUT “Press ENTER for next 
до"; LINE z$: GO TO 292 

350 PAUSE 158: INPUT "Press 1 t 
о repeat or @ to stop"; LINE z$ 
3780 IF z$="1" THEM RUN 
388 STOP 
590 PAPER 7: LET vnsviín): LET 5 
stini: INK zZ-isna2gsINT (5п/2) 1+ 


n 

a 

518 PRINT RT li,cl;v$ivni)i;" “jA 
т_{1+1,61;" “; CHR = (өп) 

528 INK @ 

=o PLOT с1:8-1,176-8%11: DRAH 
ee : DRAW 2,-17: DRAWN -17,8: DR 


uc ' BEEP 1,5: RETURN 

588 LET x1ð=INT ín;10): LET xis 
п-1@#х 1@ 

645 IF xi=@ THEN LET х18=х10-1: 
LET х1=1@ 

612 LET 11=1+3+х10 
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вай LET cis3#xi-2 
вай RETURN 
aga PRINT AT 11,61; INVERSE і; п 


Gea RETURN 
NOTES 


1. It is important that the player is not allowed to pick a card 
that has already been paired. These cards that have already been 
paired and turned face up must be distinguished in some way: this is 
done by setting the appropriate value numbers to @, and when a card 
is chosen by the player it is only allowed if the value number is non- 
zero (see lines 310 and 220). 


8.3 BLACKJACK ' 


DESCRIPTION 


Blackjack has several different variations but the basic aim is to arrive at 
a hand of cards the values of which total twenty-one or as close below 
twenty-one as possible. The player starts with two cards, and thereafter 
has a choice of whether to accept another card (to TWIST) or not (to 
STICK). If the player's hand exceeds twenty-one, the result is a BUST. 


There are five sets of hands in each game and there is a regulated bet of 
$10. The player starts, and if the hand does not exceed twenty-one, the 
"house" (i.e. the TS2068) plays next. The houses strategy is not 
complex and can either be worked out from playing or from the program 
itself. If the player wins, the prize is $50, while if it is a draw, the player 
regains the bet (i.e. $10). Cards are valued between 1 and 13 with the 
ace always being low. 


METHOD 
1. Initialize screen and variables 
a) Screen colors (10). 
b) Setup graphics for suit symbols (20-30) 
c) Set up suit initials (s$) and value symbols (v$) (40) 
d) Set up array s containing graphic symbol codes (60) 
e) Set up cards 1-52 in array c (70) 
f) Shuffle cards (80) 
g) Setup card values (array v) and suits (array t) (90) 
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h) Set up screen layout (100-120, 149) 
i) Set money т to 50 and display (130) 
j) Set bet (b) to 10 (130) 
К) Set card at top of pack (cd) to 1 (130) 
For go number g from 1 to 5 (200) 
a) Clear message lines and card table on screen (200 ) 
b) Display go number and bet (210) 
c) Decrease money (m) by bet (b) (220 and SR650) 
d) Players go: (240) 
(i) Display two cards for player (SR800) 
(ii) Calculate sum (pt) and display 
(iii) If sum > 21 then (250) 
А) Message ‘BUST — house wins’ 
B) Go to (9) 
(iv) If sum = 21 then (260) 
A) Message 'EQUALS 21' 
B) Go to (e) 
(v) Enter value z$ (270) 
(vi) If z$ not ENTER then (TWIST): 
A) Display another card (280 and SR850) 


B) Add card value to sum (pt) and display 
С) Go back to diii) 


(vii) (STICK) 
A) Message 'STICK' and display sum pt (300) 
e) Wait (310) 
f) House go: (320) 
(i) Display two cards for house (SR809) 
(ii) Calculate sum (ht) and display 
(iii) If sum » 21 then: (330) 
A) Message 'BUST — you win' 
B) Go to f (vii) 
(vi) If house sum « = player's sum and (340) 
house sum « 19 then (TWIST): 
A) Display another card (SR850) 


B) Add card value to sum (ht) and display 
C) Go back to f (iii) 

(v) If house sum (ht) » player's sum (pt) then (350) 
A) Message ‘HOUSE WINS' 
B) Go to (g) 

(vi) If house sum (ht) = player's sum (pt) then (360) 
A) Message ‘DRAW’ 
B) Add bet (b) to money (m) (SR650) 
C) Go to (g) 
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(vii) (PLAYER WINS) 


A) Message ‘WIN’ and display amount (370) 
B) Add twice bet (2*b) to money (m) 
g) Press ENTER (380) 
h) Repeat to (2) (390) 
3. End , 
a) Message showing money left (390) 
b) Rerun or stop (400-410) 


SCREEN LAYOUT 


tL HYER 3 ты | 
sse |La La | 


Sum: 2 | 


HOUSE 


E H 
Sum:z4 


Hand по.4. 
You 





VARIABLES 
ij — general purpose counters 
x$ — graphic character 
X — binary pattern for graphic character 
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s$ — suit initials, H,C,D,S 
v$ = values of cards A,2,3,...,9, T, J, OK 
array c — holds the numbers 1-52 representing individual cards 


array t — holds the suit numbers of the cards in array c 

array v — holds the value numbers of the cards in array c 

array s — holds the codes of the graphic characters for the 
suits 


r — a random number (1-52) used in shuffling the cards 
z,z$ = dummy variables 

m = money held (initially 50) 

b — standard amount of bet 
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cd = sequence number of card currently at top of pack 
ie. next available card 
9 = go number 
incm = amount by which money (m) is to be changed 
playersgo = true if it is the player's go, false if the houses's 


go 

pt = player's sum of card values 

ht — house's sum of card values 

n = sequence number of card displayed by SR500 


sn — suit number of card n 
vn = value number of card n 
1,с1 = screen position of top left hand corner of card n 
n1 = new value of money (m) 
= sequence number of first card in player's/house's hand 
total = sum of hand 
= amount by which sum is to be incremented. 


ROUTINES 


SRb00 = displays card number n with top left hand corner at 
screen line 11, column c1 

5А650 = increments money (т) by incm, as shown on screen 

SR800 = deals two cards from the current top of the pack to 
either the player or the house. Calculates sum of cards. 

58850 = (TWIST) deals one more card from the current top of 
the pack to either the player or the house. 

SR900 = clears screen message areas and 'card table' area. 


PROGRAM LISTING 
10 EO SE. ІМК 9: FLASH а: во 


, В@ FOR izi TO 4: READ x$: FOR 
J=@ TO 7: READ x: POKE USR x$+j, 
X: NEXT j: NEXT i 

SE DATA "UH",34,119,127,127,602, 
62,28, ,"c",2à, 28,8, 127, 127, 127, 
8,8, 859, (8,23, 62,127, 62, 28,8,0,"$ 
"i8. 28, 62, 127, 127, 127, 127, в 

ай LE T $&s"HCDS^: LÉT ví-"Rn234 
Se6789TJ8K" 

Sa DIM зе: DIM t(52): DIM v 


60 FOR i-i TO 4: LET sí(i)sCODE 
5241949: NEXT i 
FOR ісі TO 52: LET ctilsi: 


88 FOR і=1 TO 52: LET rzINT iS 


24RND} +1: LET z=cti): LET cíil-c 
іг): LET сігіс:: NEXT i 
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Р : 193,0: DR 
: Ri 193,0: CRAU 8,83 
128 PRINT INK 1; 1,0; “PLAYER” 
RT 18,8; "HOUSE 
ae LET mz58: PRINT AT 5,2; “ж”; 


LET Ь=1@: LET са=1 
"148 | PRINT AT @,7;:;°B LACK J H 
20@ FOR g=1 TO 5: GÛ SUB 388: P 
RUSE 1020 

„210 PRINT AT 15,2; " 
5 The bet іс $";b 
220 PAUSE 1580 

230 LET incmz-z-b: cO SUB 652 

240 LET piauersao-i: cO SUB зва 
: LET рісісігі 

#58 IF pt:zi THEN PRINT HT 5,2; 
INVERSE 1; INK 2; BUST": PRINT 
AT 18,65; Yol busti Тһе house ui 
ngz.": GO Та зва 

260 IF pt=21 THEN PRINT AT 16,6 
"тоц have exactly 21i”: BÛ a 


Hand no.";8; 


pe 
to б 


“Press ENTER іс s 
id Other key to twist“; L 
IF z$z-z"" THEN GO TO 388 
а GO SUB 858: LET pt=pi¢i 
'IMT HT 7,4&;pi: GO TO 258 
а PRINT AT 16,8; You stick ші 


1a Buse ага 

za LET ptagersaoce: GO SUR айй 
: "LET Һішісізі 

230 IF Һірзгі THEN PRINT AT 12,2 
; INVERSE i; INK 2:"BUST°;AT 18, 

6; "The house bust! You wine’: б 
б TO 378 

Зай IF Һісшрі AND ht:ia THEM GU 
SUB 850: LET htzhtzinct: PRINT 

HT i3,4£;ht: GO TO 33 

358 IF ht:pt THEN PRIHT HT 38,8 
і"“ТҺе house wins": GO TO зай 

360 IF htzpt THEN PRINT AT 15,3 
FIt іс а агаш“: LET incmzb: БО 


378 PRINT AT 18:14; "You gain $” 
Біэь: LET incmz2sb: GO SUB 65a 
“Зай INPUT “Press ENTER to conii 
пше"; LINE z$ 

288 МЕХТ 3: PRINT AT 20,3; "That 
"Ев it. You have “jm 

4ай PAUSE 158: INPUT “Press ЕНТ 
ER to pilay again, ог B ta atop”; 
LINE ZH: IF 2$="" THEH RUH 


ы- 
i “A 
шө 
н 
Ж 
IU 
m 


na ем Co TE CHE 


ае 


+ 
fs 


412 STOP 
5@@ PAPER 7: LET vn=vini: LET s 
atin}: INK 2-ісп-ӘжІМТ ісп/гіз% 


2 
510 PRINT AT Li,ci;v$(vn);" "GA 
Totis, cii ";CHRS 5 tsni 
әй INK 


53a BLOT? C14#3-1,175-84l1: DRAN 
17,0: DRAW @,-17: DRAW -17,8: DR 
AW 280,17 

54@ BEEP 1,5: RETURN 

65@ LET mism+incm 

$608 FOR ism TO mi STEP i-2aximil: 


570 PRINT ЯТ Z2,3;i;" ": ВЕЕР .@ 
1,15 

688 NEXT i 

590 LET mami: RETURN 

3023 LET 11=1@ 


818 IF playersgo THEN LET 11-4 
820 LET ciz8: LET nzcd: LET cdi 
zcd: LET cd=cd+i: GO SUB 500: LE 
T с1-11: LET n=cd: LET cdacd+i: 
GO SUB вай 

ВЗВ LET totai-vtcd-1i)«s«vícd-21: 
PRINT AT £14+3,8; INK 1;"5um:";to 


842 RETURN 

85@ PRINT AT 17,13; INK 3; FLAS 
Hl WEST: PAUSE 158: PRINT AT 
86à LET с1= 59:1с4- -td141)48: LET 


8780 LET inct=v (са): LET cd=cd+i 
900 FOR i=15 TO 19: PRINT AT i, 


@;" 
"1 NEXT i 

818 PRINT RT 5,2;" ";RT 7,0; 
: "гат i2,8;^ “;AT 13,8; 
820 FOR i=3 TO 12: PRINT PAPER 
4;AT іу?" 

"; NEXT i 
838 RETURN 


NOTES 
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1. In this game, as in any where the dealer does not deal out 


all the cards at first, the position of the current top of the pack must 
be carefully kept. Variable cd is used for this purpose in the program 
above, and it is incremented whenever a card is dealt. Variable cd1 is 
also needed when dealing cards to a particular player to show how 
many cards he has received so far, and thus indicates where the next 
card is to be displayed on the screen - in the third, fourth, fifth or 
whatever position. 
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GRID GAMES 





9.1 TREASURE TROVE 


DESCRIPTION 


Many computer games are based on some form of grid or matrix. In this 
chapter we consider increasingly sophisticated games all based upon 
the grid principle. Treasure is the simplest version of a grid game, and 
in fact the grid itself is only conceptual—it does not need to be stored in 
the computer. 


A treasure chest is hidden in a network of caverns and your task is to 
find it. You specify where you want to be in the network by entering 
a horizontal and vertical position. You have five attempts, and after 
each one the computer tells you in which direction to move next. You 
may choose the size of the cavern network at the beginning of the 
game. 


METHOD 
1. Initialize screen and variables 
8) Set screen colors (10) 
b) Set number of turns (ng) (20) 
c) Enter size of grid (gs) (30) 
d) If size (gs) invalid then (40) 
. (i) Message and reenter 
(ii) Go to (d) 
e) Draw grid (50-90) 
f) Choose treasure position (tx, ty) (100) 
2. Forgo number g from 1 to ng (110) 
a) Enter player's move (px, py) (120-140) 
Ы) If px, py invalid then (SR500) 
(i) Message and reenter 
(ii) Go to (b) 
c) Display player's position (px, py) (150) 
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d) If player’s position = treasure position then 


(i) Message of congratulation 
(ii) Go to 3(b) 


e) Message regarding direction to proceed 


f) Repeat to (2) 

End 

a) Message of commiseration 
b) Highlight treasure position 
c) Rerun or stop 


SCREEN LAYOUT 


ia 
Hs 
ja 
i? 
i 


Hz 
p 
n 
Hz 
iS 
Lii 


izzc4o57200122425783230 


VARIABLES 
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ng — number of turns allowed 
gs — dimension of grid 


= column counter 

ld — length of lines DRAWn around grid 
= y-co-ordinate counter 

— parameter for FUNCTION d 

tx, ty — position of treasure 

g — go counter 

pos — parameter for SUBROUTINE 500 
px, py — player's position 

z$ = dummy variable, = 1 to rerun 


HEXT HOHE? 





(160) 


(170-210) 
(220) 


(230) 
(240) 
(250-260) 
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ROUTINES 


SR500 = checks that an input value (pos) is between 1 and gs 
FN d = removes first digit from a 2-digit decimal number (n) 


PROGRAM LISTING 


18 BORDER 7: PAPER 7: INK б: F 
LASH @: CLS 

20 LET п9=5 

за INPUT "Choose Sire, of пейша 
rk of caves i{i18-20).: 

4ð IF 35: VINT 95 or’ Ds ci ов а 
5:20 THEN INPUT ígs;" is incorre 
pu Reenter ii8-2831:"3;95: GO TO 


52 FOR 1=@ TO 95-1: FOR с=й TO 
92-1: PRINT PAPER 5;RT 1,6;" "j 
: NEXT С: PRINT : NEXT L 

58 LET і4ш295%8-1: FOR u-i75-id 
TO 175 STEP 8: PLOT 8,y: DRAH i 
1,0: NEXT у: FOR x=@ ТО id STEP 
B: PLOT x,175-ld: DRAH @,14: МЕХ 
Du PLOT 8,175: DRAN 14,0: DRAH 


>L 
ға DEF FN din)-n-iOsINT (п/10) 
80 FOR {=й TO RENI PRINT ята 


с 
102 LET tx=INT ІБмряз5) +1: LET 
tuzINT (RND#95) +1 
110 FOR 8-1 TO ng 
120 PRINT AT 8,22; FLASH 1; "МЕХ 


T MOVE?" 
13@ INPUT "Horizontal: ";PX: LE 
T poszpx: GO SUB 508: LET рх=рб= 
140 INPUT "Vertical: “ipy: LET 


Pos=py: GO SUB 580: LET py=pos 
158 PRINT AT 8,22; FLASH 8;" 
"ЈАТ Sgs-Pu,px-1; INVERSE 


1:3 
158 IF px=tx AND puztu THEN PRI 
MT HT 4,22; “VELL DONE! LAT 5,22; 
“You 994 it": BEEP ‚15: BEEP . 
5,25: ВЕЕР 45,15: еб 545 249 
178 PRINT AT 4,22; "Chest is"; AT 
Hz 


5,22; 


180 IF pytty THEN PRINT "North" 
"190 IF py>ty THEN PRINT "South" 
"Бай IF px«tx THEN PRINT "East" 


210 IF px:tx THEN PRINT “Hest” 
220 NEXT 3 
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23@ PRINT AT 8,22; "The end.";AT 
3,22; ' ‘It аваз at"; ёт 10,22; "(";1 


ity 
240 PRINT AT gs-tu,tx-1; INK 2; 
FLASH 1; "+" 
252 INPUT "Enter 1 to repeat, @ 
to anor? LINE z$: IF z#="i" TH 


EN 

260 STOP 

Sð IF pos«»INT pos OR pos:gs 0 
R ров<1 THEN INPUT "Out of range 
» Reenter ";pos: GO TO 500 

518 RETURN  ' 


Although a complete grid is shown on the screen, the theory of the 
game is simply the choice of two random numbers. In the more 
sophisticated games that follow we see how this simple concept may 
be improved upon. 


9.2 GRAB THE GOBLIN 


DESCRIPTION 


Many grid games involve the tracking down of a creature. In Grab the 
Goblin an irksome goblin is hiding in a three-dimensional network of 
tunnels. The goblin can move north, south, east or west, or 
combinations of these, and up or down, but only one position 

at a time. In this game the size of the tunnels is fixed: there are 

three levels of tunnels, ten by ten square. The player again has five 
attempts to find the goblin, whose movement follows no set pattern. 
The goblin does occasionally however display extreme aggression when 
cornered. Note that the grid axes are labelled O-9 this time, rather than 
from 1. 


METHOD 


1. Initialize screen and variables 
8) Set screen colors 
b) Set number of goes (ng) 
c) Draw format with three grid levels 
(30-90 and SRs700 and 710) 


d) Set initial goblin position (gx, gy, gl) (100) 
2. Forgo number g from 1 to ng (110) 
a) Enter player's move (px,py,pl) (120-160) 
b) If px,pypl invalid then (SR500 and 160) 


(i) Message and reenter 
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(ii) Go to (b) 
c) Display player's position (px, py, pl) (170) 
9) If player’s position = goblin’s position then (180) 
(i) Message of congratulation 
(ii) Go to 3(d) 
е) Change goblin's position (gx.gy,gl) at 
random (190-230 and E 
f) If goblin's position = player's position then (240 
(i) Message concerning attack 
(ii) Go to 3(c) 
g) Calculate and display direction of goblin from 
player 
h) If goblin close to player then display warning (320) 
i) Repeat to (2) 
3. End 
a) End message 
b) Reveal goblin's position 
c) End sound (350) 
d) Display goblin (355) 
е) Rerun or stop (360) 


SCREEN LAYOUT 


Ен. e 
2123456789 2123456759 0123456739 


The greasy goblin moves... 
His position From you is now 
SouthEast downwards 


Enter your required position 
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VARIABLES 


ng = number of goes allowed 
| = line counter 
x 
у 


= x-co-ordinate counter 
= y-co-ordinate counter 
n = counter for labelling y-axis 


gx,gy,gl = position of goblin 
px,py,pl = position of player 

pos = parameter for subroutine 500 
gc — parameter for subroutine 600 
g = go counter 

i = general purpose counter 

z$ = dummy variable, = 1 to rerun 


ROUTINES 
SR500 = checks that an input value (pos) is between 0 and 9 
SR550 = clears message lines 


SR600 = increments a goblin co-ordinate by —1, 0 or +1 

SR700 and SR710 = used in drawing grids 

FN д = true if goblin and player at same positions, otherwise 
false 


PROGRAM LISTING 
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18 BORDER 7: PAPER т: INK @: F 
LASH 0: CLS | 

20 LET п9=5 

38 PRINT AT 8,8; INK 2; INUERS 
Е 1; "GRAB THE GOBLIN" 

40 PRINT ВТ 2,1; LEUEL @ LE 
UEL 1 LEVEL 2" 

5@ FOR t=4 TO 13: PRINT PAPER 

: А "-BT 1,11; 


H ka 3 

APER 5;" "ЈАТ і,рр; PAP 
ER 6;" "i; NEXT L 

0 FOR х=й TO 255 STEP 8: 60 5 

: X : FOR xz79 TO 255 

STEP 88: GO SUB 700: NEXT x 

70 FOR y=143 TO 64 STEP -8: GO 
SUB 710: NEXT y: LET y=64: GO 5 
UB 718 

б@ FOR n=9 TO @ STEP -1: PRINT 
AT 13-п,18;п;АаТ 13-n,21;n: NEXT 


п 
92 PRINT RT 14,0; "81234567898 а 
123456789 01235455788" 





а 

i as ONT (BND 2: 

} L diy cum AHF (pusd 
1 АМЕ ірісді? 

118 FOR g- 1 TO na 
128 PRINT AT 21,28; 
ег your required 
138 INPUT "Hori 
T PaszPX: Go SUB 
148 INPUT 
Рох =ру: GO SUB Бай: 
150 INPUT "Level: 
168 IF plésIhT рі 
£8 THEN INPUT *" 
enter “ірі; Go 


gs 
< 
me 
“1 
v 
м. 





клк е, 
Mu л е ІЗ» 





3 SUB 688: LET 
LET gczay: GO SUB 5828: LET 
3 


іта GO SUB Esa T HT iz-pu, 
Petllepi; IHUE 

aea IF FM ді) i GO SUB Бый 
PRINT AT 17,8; 2;"Conaratuia 
tions You ca him": BEEP .5 
:15 ЕЕР .5,2 EP .5,15: ШО 
+ 
E 


єз г 


ш 
т ITO NU рр pe CI e a a 


T CO OL HE E Hp UE p CI 


egal dw cpm) EN cn Enn fac 





Ea dne 


T are 
E БӘ: THT Т 
4 IF FH 3ii THEM PRINT “i hono 
Е He has moved to uour" "positi 
en nd drawn a knif&l"'"Im sare 
d. gou're done for.": GO та аза 
БЕЙ PRINT "His position fram uo 
U i£ mow"; AT 15,8; 9 
"пт 18,8; 


288 IF py:igu THEN PRINT “North” 
270 IF pu:gu THEN PRINT “South” 
250 IF рхсах THEN PRINT “East 

258 IF px:gx THEN PRINT “West " 
SOG IF pligi THEN PRINT " upuar 
Pi:gi THEN PRINT " дошпш 


п. 
n 


mr 
Ea Ga x ED C Кл!) 
ГУ 
5 
н 
Ш 


tu 
ru 


Ci po E pl 


o En 


mop ur 
"5 
Xl 
Ti 
н 
zx 
9 
ا س‎ ч 
= 
ri 
Ti 
en 
m 
e 


uu -uu 


ge 
m 


d : iJ ‚АТ 21,8;"T 
е id. He is at level ";atl; 1; 
3x;",":9u;")" 
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350 FOR і=0 та -26 STEP -1: ВЕЕ 
P .1,i: NEXT i: ВЕЕР 3,-28 

355 PRINT AT, 13-99 ,9x491811; FL 
ASH 1; INK 2; 

250 INPUT "Enter i to repeat, @ 
to al: LINE 2%: IF 2%-"1" TH 


372 STOP 
5608 IF рос<>ІМТ pos OR pos»9 OR 
pos<@ THEN INPUT "Out of range. 
Reenter ";pos: GO TO 5@@ 
519 RETURN 
at FOR ісі? TO 21: PRINT HT L, 
+ 
=: NEXT L: RETURN 
бей LET gczgc-1«1NT (RNDx3): IF 
gc<@ THEN LET ас-Ә 
618 IF gc:9 THEN LET gcz9 
б2@ RETURN 
тед PLOT x,143: DRAW 9,-79: RET 


es PLOT @,y: DRAW 79,0: PLOT 8 
8, DRAW ER @: PLOT 176, 4: DRAW 
+8, @: RETUR 


NOTES 

1. Once again an array is not needed to store the grids, but 
here more variables are needed to keep track of the goblin and the 
player, since we are now working in three dimensions. 


2. As a result of the randomizing routine, the goblin does tend 
to stay near a grid edge or the top or bottom levels more often than not. 


9.3 PURSUIT 


DESCRIPTION 


If you derive pleasure from being chased around by malevolent 
monsters, you should enjoy Pursuit. It is particularly a game for 
masochists, because it is also extremely difficult to win. 


For unexplained reasons you find yourself in the lair of a group of 
Gulpers, strange creatures whose sole object in life is to find and devour 
anything edible, and both humans and other Gulpers come into that 
category. The lair is totally surrounded by an antimatter barrier, lethal to 
all forms of life. Finally there are also a few Spongs scattered around 
the lair. A Spong shows little signs of activity until you step on it, at 
which point it dematerializes you. Spongs show no discrimination, 
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absorbing both Gulpers and humans alike. Your objective is to avoid 
these many and various hazards for ten turns. On each turn, you move 
one step in any direction and the Gulpers try and catch you. Wise 
players will attempt to lure Gulpers towards а Spong so that there are 
less Gulpers to avoid. A move is specified as an abbreviated direction 
іе. N,SSEW,NE,SENW or SW. Use * to give ир. To change the level of 
difficulty, alter the number of Spongs, Gulpers, or turns in line 10. 


METHOD 
1. 


Initialize screen and variables 

8) Set screen colors (10) 

b) Set number of turns (nt), number of Spongs (ns), 
number of Gulpers (ng) and number of Gulpers 


left (ngl) (20) 
c) Set up user graphic symbols (50-70) 
d) Display symbol key and headings (80) 
e) Draw lair (90-150) 
f) Draw ns Spongs randomly (160 and SR500) 
9) Set position of Gulpers in arrays x and y and 
display (170 and SR500) 
h) Set position of player (px,py) and 
display (180-190 and ST500) 
For turn number t from 1 to nt (200) 
a) Display turn number (200) 
b) Enter player’s move m$ (205) 
с) If m$ is “*” then (207) 
() Quit message and sound (and 58900) 
(ii) Go to 3(b) 
d) If direction m$ invalid then (210 and SR600) 
() Message and reenter 
(ii) Go to (d) 
€) Calculate players new position (px,py) (220 and SR6@Q) 
f) If object at (px, py) then (230) 
(i) Display message that player hit gulper/spong/ 
barrier (240-270) 
(ii) Sound (SR900) 
(11) Go to 3(b) (270) 
д) Display player's new position (px,py) (280) 
h) Clear message lines (58800) 
i) For every Gulper: (30 0) 


(i) If eliminated (ie. line position =@) then go to (vii) (305) 
(ii) Recalculate Gulpers position to move closer to 
player (320) 
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(iii) If new position = player's position then (340) 
А) Death message and sound (апа 58900) 
В) Go їо 3(b) 
(ім) If new position = object then (345) 
A) Message that Gulper has been Sponged, or 
Barred and sound (350-365 and SR850) 


B) Decrease Gulpers left (ngl) by 1 
С) Set Gulper's line position x to 0 


D) Go to (vi) 
(у) Display Gulper and sound (370-375) 
(vi) Display number of Gulpers left (ngl) (380) 
(vii) Repeat to (i) (390) 
j) If no Gulpers left (ngl = 0) then (400) 
(i) Message 
(1) Go to 3(b) 
k) Repeat to (2) (410) 
3. End 
a) Survived message (420) 
b) Rerun or stop (430-450) 
VARIABLES 
nt = number of turns 


ns = number of Spongs 

ng = initial number of Gulpers 

ngl = number of Gulpers left 

arrays X,y — two arrays holding the line and column positions 
of each Gulper. If a Gulper is destroyed its x-value is set to 0 

i,j,k = general purpose counters or function parameters 

x$ — used to hold character for setting up user graphics 

X — used to hold binary value for setting up user graphics 

Іс = line and column positions found to be free (by $8500) 

px,py = player's line and column position 

t — turn counter 

m$ = direction to move (= N/S/E/W/NE/SE/NW/SW/*) 

ok.= 1 if m$ is invalid, 0 if invalid 

ix = line increment by which the player's position is to be 
changed to move 

іу- column increment by which the player's position is to be 
changed to move 

w$ = word showing object player walked into 

Im = length of direction entry m$ 

y$ = parameter used by SR630 - a single direction letter 


ott 


114 


Сһаріег Міпе 
SCREEN LAYOUT 


=p layer 
Н-ауірег 
Б-ероп4 
#=ьаггіег 
Turn по, 5 


4 guipers 
Lert 


The Guilpers аге moving... 





ROUTINES 


SR500 = finds a position (I,c) іп the lair not occupied by a 
Spong, Gulper or barrier 

SR600 = test whether m$ is a valid direction. Sets ok to 0 
if invalid or 1 if valid. Calls SR700 and SR750 

SR700 = calculates increment for px, based upon direction m$ 


SR750 = calculates increment for px, based upon direction m$ 
SR800 = clears message lines 
SR850 = funeral sound for dead Gulper 


SR900 = funeral sound for dead player 

FN 1 = gives a random line position within the lair (2-14) 

FN c = gives a random column position within the lair (2-19) 

FN i = using FN b, extracts the ink colour of a position (j,k) 
in the lair 

FN b = as above 


PROGRAM LISTING 


1ë BRIGHT @: FLASH ё: PAPER 7: 
BORDER 7: INK 8: CLS 

28 LET ntz-zi8: LET ns=8: LET ng 
Жа ngisang: DIM xíng3: DIM y 
ng 

38 DEF FN Li! SINT (RNDeidi¢+e 

40 DEF FN cil =INT ІБМІ:18) +2 
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43 DEF ii 
m-643 #3] 
“ы DEF Jy 
RAG 

zo FOR ісі TO 4: ip x 

ва FOR j= TŪ 7: D x: PORE 
USR x5-j.x: НЕХТ j: NEXT i 

те DATA "B",i1780,85,178,82,178, 
B85,.,178,85,"G",255,152,182,152,18 
3,165,585, 102, "Pp" 24,24, 255,58,54 
,B4,z4,58,"5",255,1228,1855,122,18 
2,255, 123,255 

50 PRINT AT 8,22; "Р=ріацег"; т 
2,228; INK Z;"Gzsauiper";HI 4,22; 
ІНЕ 1; "Ssspona";AT 8,22; Bsbarrf 
ier"; INE @; AT 22; "Turn noa.i"; 
HT 18,23;ng;° pers":AT 11,28; 
"Lert? 

adm IHE 1: 

198 FOR ісг 4: PRINT AT 1,2 
м : HEXT 1 


118 BRIGHT 1 
isa PRINT AT 1,1; 'BBBBBBBBBBBBEEB 
BBEBBBB";HT 15,1; "BBBBBBBBBBEBBEB 
BBBBBB'" 

133 FOR і=2 TO 14: PRINT AT 1.1 
PUBUIBT L,28; B": NEXT i 
142 INK а: PAPER 8 

i58 PLOT 8,1857. DRAH 151,8: DRA 
@,-119: DRAW -161,@: DRAH @,11 


Гера 


180 FOR i-i TO ns: GO SUB 5@@: 
PRINT AT і,с; INK 1; PAPER 7;"3" 
: NEXT i 

i78 FOR ісі TO па: GO SUB 5840: 
LET хіііші: LET uiil-c: PRINT AT 

L,c; INK 2;"G": NEXT i 

іза BRIGHT ü 

130 GO SUB S88: LET peel: LET Р 
gzc: PRINT AT px. py; "Р" 
art FOR ісі TO nt: PRINT AT 8,3 

t 


‘BOS INPUT “Enter direction to f 


ove: ут 

207 IF mg="¢" THEN PRINT FLASH 
1:8Т 28,8; "тоц gave up": GO SUB 
seg: GO TO 438 


вій GO SUB 58080: IF HOT ok THEN 
INPUT “Reenter Eq. SH or Mi: “am 
GG TO 218 

228 PRINT AT рх.ры; PAPER 8;" " 

LET рх=рх+іх: LET py=putiy: 
`рР3@ IF ATTR ipx,pur:54 THEN GO 
TO 280 

240 IF FN iipx,puiz2 THEN LET ш 
$z"Guiper": 50 TO 278 
250 IF FN іірх, ісі THEN LET ш 
$£-"S5pong": GO 18 

250 LET ш%с“В 


SH 











270 PRINT AT px PH; 

р INE 3; AT 18,85 "You 

a ";u&£;"!": GO SUB зва: 
за 


230 PRINT 


MOIR... 

ca! FOR ісі TO ng 

ЗӘБ IF хіі) =й THEN GO To 338 
318 PRINT AT xfii.,ytii; PAPER 8 


їн 
эһ 
gu 













328 LET PE reg ips 
ET gii eee ipu-uii 
S48 IF P Ld Pysy i 
PRINT AT ; FLASH 1) "6! 
қ 2;HT а iper ";i;" haz 
t youl” аса: GO TO 4 





245 IF afin ixfíil,uiilik 
so Mt Sra 
il,u(ilj)z 
ii; FLASH 
НТ 19,8: 
bsorbed 
T xXiil,.u 
APER 7; "5 
ii} s0: GO 
j.ufillz 
Б > FLASH 
FLA "Gulper 
ite BUB B85àü: 
T X [i ент 1; ра 
B": LET ngizn 4: DET xt 
а TO зай 
ЗЕБ IF Ғ 
БІМТ AT x 
T 10,8; Fi 
nnibaiizte: 
T xXiil,ut 
FER Б; "Go": 
il =@: GO T 
370 PRINT 
1; ІНЕ 2;' 
375 BEEP .1,15 
21,5: BEEP .1,-5 
з8й PRINT AT 18,25; ngt 
BOG HEXT i 
аса a ага THEN PRINT FLASH 1 
HT 20,2; “Мо Guipers lefi - You 
wini": Sá TO аза 


410 HEXT t | 
420 PRINT FLASH 1; Ar. 20,0; Heli 
done - uou have ; 


ің gulpers";HT 1 
БЕ 282: INPUT "E 
4 @ to stop"; LI 
ТНЕМ RUH 
42528 STOP 


кын Тий 


НТ 
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S@@ LET LzFN Lí}: LET CzFN ci? 
510 IF ATTR íL,c)5864 THEN GO ТО 


520 RETURN 
500 LET okzü: LET LmzLEN m$ 
618 IF iml OR im+2 THEN RETURN 


622 IF im=1 THEN LET 9%-шп%11): 
GO SUB 780: GO SUB 750: IF їх=@ 
AND iy=@ THEN RETURN 

630 IF іт=2 THEN LET Ч%-т%11): 
GO SUB 700: LET u$-mtí(2): GO SUB 
eas IF ix=@ OR iy=@ THEN RETUR 


640 LET ok=1: RETURN 
700 ШЕТ ix=(ys="5" OR Baers а 


? L 

gal" OR уф="ш"): RETURN 

4 12 FOR t=18 ТО 20: PRINT ЯТ |, 

а; 

": NEXT 1 

810 RETURN 

850 FOR ісі EXE 3: BEEP 1,8sj: B 
EEP .@1,28: NEXT | 

868 RETURN 

9880 FOR ісі TO 4: ВЕЕР .1,20: B 
EEP 1,-20: МЕХТ j: BEEP 5,-20 
910 RETURN 


(Note: The letters P, G, S and B (lines 80, 120, 130, 160, 170, 190, 
280, and 340-370) must be entered in graphics mode (cursor G).) 


NOTES 


1. The “test for a hit" routines for both Gulpers and player 
again use the ATTR function to test for BRIGHT characters. Gulpers, 
Spongs and the barriers are the only BRIGHT items on the grid, so 
this test works perfectly. However, distinguishing a Spong from a _ 
Gulper and so on is more difficult. The ink color value of an attribute 
byte is held in bits 2 to @ and this value is extracted by function FN b. 
Providing Spongs, Gulpers and barriers have their own distinguishing 
color (blue, red and black respectively) then the object hit may be thus 
clearly identified. 


2. The routines which check the user's entry for a valid 
direction also calculate the effect in the player's line and column 
positions. These routines SR600, SR700 and SR750 merit further 
attention. 58700 sets the line increment (ix) to 1 for N, —1 for S and 
0 otherwise. Similarly SR750 sets the column increment (iy) to 1 for E, 
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—1 for W and @ otherwise. SR6@ uses both these routines in testing 
the user's input. If the input is one character then both routines are 
called, and if ix and iy are both 0 then the directions cannot have 
been М, S, E or W so it is invalid. If the input is two characters then 
SR700 operates on the first character (must be М or 5) апа SR750 on 
the second (E or W). If either ix or iy are still @ then something is 
wrong so the entry is flagged as invalid. 
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АВ5 
АС5 
AND 
ASN 
AT 
ATN 
ATTR 

b 

B 

BEEP 
BIN 
BORDER 
BRIGHT 
с 

C 

CHR$ 
CIRCLE 
CLEAR 
CLS 
CODE 
COPY 
cos 


ЁС] EE 


KEYBOARD GUIDE 


MODES 


automatic 
automatic 


CAPS LOCK (CAPS SHIFT AND 2) 
CAPS SHIFT AND SYMBOL SHIFT 
GRAPHICS (CAPS SHIFT AND 9) 


MODE 


AAR BE 


IK}, Ш or 
КІ, ІП or 


m 


AA A A A AA | A A A A E ы E E A |215 fm] E E MA 


С) 


SHIFT 


CAPS 
CAPS or SYMBOL 
SYMBOL 
CAPS OR SYMBOL 
SYMBOL 
CAPS or SYMBOL 
CAPS or SYMBOL 
CAPS 
CAPS or SYMBOL 
CAPS or SYMBOL 
CAPS 


CAPS or SYMBOL 
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SYMBOL 
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EY 
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ІЕ 

ІМ 

INK 
INKEY$ 
INPUT 
INT 
INVERSE 
j 

J 

k 

K 

| 

L 

LEN 
LET 
LINE 
LIST 
LLIST 
LN 


LOAD 
LPRINT 


MODE 


г] 


ЖІКІНІГІН BAA A т A т] A AA E FE Г] тїї Cs] Ca AA Ж] Ж] AE FAA A E A т] 


SHIFT 
CAPS 


CAPS 
CAPS or SYMBOL 
SYMBOL 


CAPS 


CAPS 


CAPS 


CAPS or SYMBOL 
CAPS or SYMBOL. 


CAPS or SYMBOL 


CAPS 


CAPS 


CAPS 


SYMBOL 


CAPS 


CAPS 


KEY 


=>>>®><<Оо=Ммч<лхл=гхггххх=—==хжл>-у>х-сС-—”-—ҥ==о› тоссо DNC NT Xm 





ЕМТВҮ MODE SHIFT KEY 


NOT [К], ог [С] SYMBOL 5 
о 11 0 
0 CAPS 0 
OR K, or [C] . SYMBOL U 
OUT [E] CAPS or SYMBOL о 
OVER [Е] CAPS or SYMBOL N 
p Р 
Р САР5 Р 
PAPER [Е] CAPS or SYMBOL С 
PAUSE [К] M 
PEEK [E] о 
PI [E] M 
PLOT i о 
POINT (E) SYMBOL 8 
POKE [К] о 
PRINT [К] Р 
4 = А а 
а ІП САР5 о 
г |М R 
R [Li CAPS R 
RANDOMIZE [К] T 
READ [E] A 
REM [К] Е 
RESTORE [КІ Y 
RETURN [К] Y 
RND (E) T 
RUN ІК! R 
8 (М 5 
S fti CAPS S 
SAVE K] - $ 
$СВЕЕМ$ ІН CAPS ог SYMBOL K 
SGN [E] F 
SIN (El о 
SOR [E] H 
STEP [К], шо (СІ SYMBOL D 
STOP КІ, О or SYMBOL A 
STR$ [E] Y 
t JN T 
T iL! CAPS T 
TAB [Е] Р 
ТАМ№ lE] E 
THEN [K|, |] or [С] SYMBOL G 
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or 
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SHIFT 


SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
CAPS or SYMBOL 
CAPS or SYMBOL 
CAPS or SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
CAPS or SYMBOL 
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SYMBOL 
SYMBOL 
SYMBOL 
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This book contains twenty-one colorful and 
entertaining number games, word games, 
simulations, and games of chance for the 
Timex Sinclair 2068 computer, including: 

* CRACK THE COMBINATION 

* AWFUL ANAGRAMS 

* SHRINK 

* SOLITAIRE 

* DEAD DUCKS 

* GRAB THE GOBLIN 

* BLACKJACK 

* SINK THE SHIP 

* TREASURE TROVE 
Each program listing in this book is accom- 
panied by clear instructions for entry and 
play, and the author includes suggestions 
on how to modify the programs. Besides 
providing hours of entertainment, these 
games can serve as a fascinating introduc- 


tion to programming in BASIC on the Timex 
Sinclair 2068. 
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